'Close #1
'Open "C:\WINDOWS\SYSTEM32\IP.DRV" For Input As #1
'Do While Not EOF(1)
'Line Input #1, a
'Loop
'Text4.Text = a
'Close #1
请问这段是做什么用的?
Shell "rundll32 shell32,Control_RunDLL", vbNormalFocus
那个是什么
[此贴子已经被作者于2005-11-12 15:24:54编辑过]
其实我也很无聊!
[此贴子已经被作者于2005-11-12 15:24:54编辑过]
'Open "C:\WINDOWS\SYSTEM32\IP.DRV" For Append As #1
'Close #1
'Open "C:\WINDOWS\SYSTEM32\IP.DRV" For Input As #1
'Do While Not EOF(1)
'Line Input #1, a
'Loop
'Text4.Text = a
'Close #1
这个应该是写入文件的操作,将a变量的信息写入了IP.DRV。
Shell "rundll32 shell32,Control_RunDLL", vbNormalFocus
shell函数的作用是调用其他应用程序,这里应该调用了一个rundll32的应用程序。后面应该是应用程序的参数。
'Open "C:\WINDOWS\SYSTEM32\IP.DRV" For Append As #1
'Close #1
'Open "C:\WINDOWS\SYSTEM32\IP.DRV" For Input As #1
'Do While Not EOF(1)
'Line Input #1, a
'Loop
'Text4.Text = a
'Close #1
这个应该是写入文件的操作,将a变量的信息写入了IP.DRV。
Shell "rundll32 shell32,Control_RunDLL", vbNormalFocus
shell函数的作用是调用其他应用程序,这里应该调用了一个rundll32的应用程序。后面应该是应用程序的参数。
打开控制面板.
其实直接shell这个control就可以.