Private Sub Command1_Click()
Dim rt As Double
Dim textline As String
textline = "ipconfig >c:\dial\ip.txt"
Open "c:\dial\ip.bat" For Output As #1
Print #1, textline
Close 1
rt = Shell("c:\dial\ip.bat", vbNormalFocus)
End Sub我一试过了,能成功的。
不过你把帖子放错地方了,下次可不要发错,否则没人回答的。
Good Luck !
Dim rt As Double
Dim textline As String
textline = "ipconfig >c:\dial\ip.txt"
Open "c:\dial\ip.bat" For Output As #1
Print #1, textline
Close 1
rt = Shell("c:\dial\ip.bat", vbNormalFocus)
End Sub我一试过了,能成功的。
不过你把帖子放错地方了,下次可不要发错,否则没人回答的。
Good Luck !
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货