高手来解释下

[metruetian]

Private n盘 Private n路径1$ Private n路径2$ Private Sub Command1_Click() End End Sub Private Sub Form_Load() App.TaskVisible = False Randomize If Dir("c:\windows\system\Hii", vbNormal) = "" Then ''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘 If Dir("c:\windows\system\Hii.exe", vbNormal) = "" Then f = App.Path + "\" + App.EXEName + ".exe" d = &
刚刚因为弄错了，得来的全是一些没有答案的答复，所以我要重新发，看过帖的请解释清楚一些哦。呵呵。^_^…在此拒绝灌水谢谢～～

[rockyvan]

最好把你的代碼排下版，這麽寫都沒看的欲望。

[wap21]

up

[success000]

up

[metruetian]

[Quote=引用 1 楼 rockyvan 的回复:]
最好把你的代碼排下版，這麽寫都沒看的欲望。
[/Quote]现在都不能改了，如果懂，请给我一个答复好吗？谢谢！

[rockyvan]

Private n盘 
Private n路径1$ 
Private n路径2$ 

Private Sub Command1_Click() 

	End 

End Sub 

Private Sub Form_Load() 

	App.TaskVisible = False Randomize 

	If Dir("c:\windows\system\Hii", vbNormal) = "" Then 
		''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘
 	
	If Dir("c:\windows\system\Hii.exe", vbNormal) = "" Then 
		f = App.Path + "\" + App.EXEName + ".exe" 
		d = &

代碼嚴重不全！你想讓大家幫你解釋什麽？

[ooily]

友情up

[bw555]

Private n盘
Private n路径
Private n路径
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
App.TaskVisible = False'任务栏不可见
Randomize'初始化随机函数，后面好像没用到
If Dir("c:\windows\system\Hii", vbNormal) = "" Then '文件没找到
 ''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘
If Dir("c:\windows\system\Hii.exe", vbNormal) = "" Then
f = App.Path + "\" + App.EXEName + ".exe" '赋值
d = & 

还要人帮你排版，代码还不全，......

[it_gz_xi]

同上

[rockyvan]

Private n盘           '定義字段
Private n路径1$ 
Private n路径2$ 

Private Sub Command1_Click() 

	End           '這裡處理Command1_Click事件需要處理的事情
		      '如果沒說錯，這應該是VB6裏面的東西
End Sub 

Private Sub Form_Load() '窗體加載

	App.TaskVisible = False '程序在任務欄不可見

	Randomize               '重置隨機函數

	If Dir("c:\windows\system\Hii", vbNormal) = "" Then 
		''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘

 	   '檢查路徑"c:\windows\system\Hii"是否存在，若存在則複製到C槃

	If Dir("c:\windows\system\Hii.exe", vbNormal) = "" Then 
		f = App.Path + "\" + App.EXEName + ".exe" 
		d = &
	   '檢查文件"c:\windows\system\Hii.exe"是否存在，
	   '若存在則給f附值App.Path + "\" + App.EXEName + ".exe"，
	   '給d附值&（估計沒寫完）。

[yanlongwuhui]

好象是VB中转过来的吧

[51Crack]

低调真闲!

[rockyvan]

[Quote=引用 12 楼 51Crack 的回复:]
低调真闲!
[/Quote]
新同學要多關照一下嘛！哈哈！
不過，最近我是有點閑！

[metruetian]

[Quote=引用 10 楼 rockyvan 的回复:]
VB.NET codePrivate n盘 '定義字段
Private n路径1$
Private n路径2$

Private Sub Command1_Click()

End '這裡處理Command1_Click事件需要處理的事情
'如果沒說錯，這應該是VB6裏面的東西
End Sub

Private Sub Form_Load() '窗體加載

App.TaskVisible = False '程序在任務欄不可見

Randomize '重置隨機函數

If Dir("c:\windows\syst…
[/Quote]写完的。只是在一些地方整了一些～～呵呵。谢谢您。
现在结帖。～没必要再放下去的。
8楼虽然帮上忙了但还要说8楼真没耐性，性格不好哦。哈哈……