论坛 › 『 提问交流 』 › 分析一段程序,哪里错了

mier001 发表于 2009-8-18 21:30:56

分析一段程序,哪里错了

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\\autoit3\\Aut2Exe\\Icons\\zz.ico
#AutoIt3Wrapper_Outfile=AutoLogin.exe
#AutoIt3Wrapper_Res_Comment=网维大师客户机专用
#AutoIt3Wrapper_Res_Description=pubwin解锁器
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=TVZML作品
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include<SysTray_UDF.au3>
Opt(\"MouseClickDownDelay\", 100)
TraySetToolTip(@ScriptName)
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
$log = @ScriptDir & \"\\log\\ClientSetup\" & @YEAR & @MON & @MDAY & \".log\"
$dir = @ScriptDir & \"\\Autologin.ini\"
$url = IniRead($dir, \"config\", \"url\", \"\")
If $cmdline = 0 Then
$input1 = InputBox(\"配置\", \"远程密码下载地址\", $url, \"\", 300, \"120\", \"-1\", \"-1\")
If @error = 1 Or $input1 = \"\" Then
Exit
EndIf
IniWrite($dir, \"config\", \"url\", $input1)
$input2 = InputBox(\"配置\", \"PUBWIN解锁退出密码\", \"\", \"\", 300, \"120\", \"-1\", \"-1\")
If @error = 1 Or $input2 = \"\" Then
Exit
EndIf
IniWrite(\"pubwin.txt\", \"config\", \"password\", _password(1, $input2, $url, 0))
IniWrite($dir, \"config\", \"password\", _password(1, $input2, $url, 0))
MsgBox(0, \"密文已写入文件\", _password(1, $input2, $url, 0))
Exit
EndIf
If FileExists(\"d:\\ProtectedC00.sys\") Then
FileSetAttrib(\"d:\\ProtectedC00.sys\", \"-RASH\")
FileDelete(\"d:\\ProtectedC00.sys\")
EndIf
If FileExists(\"d:\\ProtectedC00.sys\") Then
Exit
EndIf
If Not FileExists(@ScriptDir & \"\\log\") Then DirCreate(@ScriptDir & \"\\log\")
If Not FileExists($dir) Then
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \"] 没有找到配置文件.\")
Exit
EndIf
$i = 1
While $i <= 10
Sleep(1000)
InetGet($url, \"Config.dat\", 1, 0)
$password = IniRead(\"Config.dat\", \"config\", \"password\", \"\")
If Not $password = \"\" Then
IniWrite($dir, \"config\", \"password\", $password)
ExitLoop
EndIf
$i = $i + 1
WEnd
If $password = \"\" Then
$password = IniRead($dir, \"config\", \"password\", \"\")
EndIf
If $password = \"\" Then
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \"] 下载远程配置文件失败\")
If FileExists(\"Config.dat\") Then FileDelete(\"Config.dat\")
Exit
EndIf
$Pub_Password = _password(0, $password, $url, 0)
If FileExists(\"Config.dat\") Then FileDelete(\"Config.dat\")
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \"] 解密成功\")
$p_process = \"PubwinClient.exe\"
$autorun = 0
_AutoLoginPUBWIN()
Sleep(2000)
If Not ProcessExists(\"PubwinClient.exe\") Then Exit
$list = ProcessList(\"smss.exe\")
Local $ep_pid
For $i = 1 To $list
If StringInStr(Procespath($list[$i]), \"PubwinClient\\smss.exe\") > 1 Then
$ep_pid = $list[$i]
If ProcessExists($list[$i]) Then ProcessClose($list[$i])
EndIf
Next
Local $t
For $t = 1 To 3
_kick_icafe()
Sleep(2000)
$p_index = _SysTrayIconIndex($p_process)
$p_xy = _SysTrayIconPos($p_index)
If IsArray($p_xy) Then
BlockInput(1)
$p_x = $p_xy + 7
$p_y = $p_xy + 7
MouseMove($p_x, $p_y, 0)
MouseClick(\"left\", $p_x, $p_y, 2, 0)
Sleep(500)
$p_y = $p_xy - 85
MouseMove($p_x, $p_y, 0)
Sleep(100)
MouseClick(\"left\", $p_x, $p_y, 1, 0)
If Not ProcessExists($p_process) Then Exit
If WinWaitActive(\"验证口令\", \"请输入口令\", 1) Then ExitLoop
BlockInput(0)
EndIf
Next
_kick_icafe()
If WinExists(\"验证口令\", \"请输入口令\") Then
BlockInput(1)
$p_xy = WinGetPos(\"验证口令\", \"请输入口令\")
$p_x = $p_xy + $p_xy / 2
$p_y = $p_xy + $p_xy / 2
MouseMove($p_x, $p_y, 0)
MouseClick(\"left\", $p_x, $p_y, 2, 0)
ControlSetText(\"验证口令\", \"请输入口令\", \"Edit1\", $Pub_Password)
Sleep(500)
MouseClick(\"left\", $p_x, $p_y, 2, 0)
ControlSend(\"验证口令\", \"\", \"Button1\", \"{enter}\")
BlockInput(0)
EndIf
Sleep(500)
_kick_icafe()
If WinExists(\"询问\", \"下次Windows启动时是否自动运行Pubwin\") Then
$p_xy = WinGetPos(\"询问\", \"下次Windows启动时是否自动运行Pubwin\")
$p_x = $p_xy + $p_xy / 2
$p_y = $p_xy + $p_xy / 2
MouseMove($p_x, $p_y, 0)
MouseClick(\"left\", $p_x, $p_y, 2, 0)
WinWaitActive(\"询问\", \"下次Windows启动时是否自动运行Pubwin\", 1)
If $autorun = 1 Then
ControlSend(\"询问\", \"\", \"Button2\", \"{y}\")
Else
ControlSend(\"询问\", \"\", \"Button2\", \"{n}\")
EndIf
EndIf
If ProcessExists(@ComputerName & \".exe\") Then
ProcessClose(@ComputerName & \".exe\")
EndIf
If ProcessExists(\"HintSafe.exe\") Then
ProcessClose(\"HintSafe.exe\")
EndIf
If ProcessExists(\"filemon.exe\") Then
ProcessClose(\"filemon.exe\")
EndIf
ProcessClose($ep_pid)
Exit

Func _kick_icafe()
If ProcessExists(\"BarClientView.exe\") Then
If WinExists(\"网维大师(ICafe) 娱乐平台\") Then
WinSetState(\"网维大师(ICafe) 娱乐平台\", \"\", @SW_MINIMIZE)
EndIf
EndIf
EndFunc ;==>_kick_icafe

Func _AutoLoginPUBWIN()
Local $i, $j
For $i = 1 To 30
If WinExists(\"Client\") Then
$i = 999
ExitLoop
EndIf
Sleep(1000)
Next
If $i = 999 Then
Else
Return 0
EndIf
For $i = 1 To 15
If WinExists(\"LockDlg\") Then
$i = 999
ExitLoop
EndIf
Sleep(1000)
Next
If $i = 999 Then
Else
Return 0
EndIf
For $j = 1 To 15
If WinExists(\"ActiveMovie Window\") Then
$i = 999
ExitLoop
EndIf
Sleep(1000)
Next
If $i = 999 Then
Else
Return 0
EndIf
BlockInput(1)
Sleep(1000)
MouseClick(\"left\")
WinWaitActive(\"LockDlg\", \"\", 3)
ControlSetText(\"LockDlg\", \"\", \"Edit1\", \"admin\")
Sleep(250)
WinWaitActive(\"LockDlg\", \"\", 3)
ControlSetText(\"LockDlg\", \"\", \"Edit2\", $Pub_Password)
Sleep(250)
WinWaitActive(\"LockDlg\", \"\", 3)
ControlSend(\"LockDlg\", \"\", \"Button1\", \"{enter}\")
BlockInput(0)
EndFunc ;==>_AutoLoginPUBWIN

Func Procespath($pid)
$objWMIService = ObjGet(\"winmgmts:\\\\.\\root\\CIMV2\")
$colItems = $objWMIService.ExecQuery(\"SELECT * FROM Win32_Process WHERE ProcessId = \" & $pid)
For $objItem In $colItems
$cmdpath = $objItem.CommandLine
$exepath = $objItem.ExecutablePath
$path = StringSplit($cmdpath, \"\\\")
If $path <= 2 Then
Return $exepath
Else
Return $cmdpath
EndIf
Next
EndFunc ;==>Procespath

Func _password($jiami_lp, $jiami_txt, $jiami_pas, $jiami_lev)
Local $tlev, $bhb, $jjxc = 1, $Num
Local $jh
If $jiami_txt = &#39;&#39; Or $jiami_pas = &#39;&#39; Or StringLen($jiami_pas) > 100 _
Or $jiami_lev > 9 Or Int($jiami_lev) <> $jiami_lev Or $jiami_lev < 0 Then Return -1
If $jiami_lp = 1 Then
$sosu = StringLen($jiami_pas)
For $pa_s = 1 To $sosu
$jh[$pa_s] = Asc(StringMid($jiami_pas, $pa_s, 1))
$Num = $Num & $jh[$pa_s]
If $jjxc > 3 Then $jjxc = 1
If $jjxc = 1 Then
$bhb = Int($bhb + $jh[$pa_s])
ElseIf $jjxc = 2 Then
$bhb = Int($bhb * $jh[$pa_s])
ElseIf $jjxc = 3 Then
$bhb = Int($bhb - $jh[$pa_s])
EndIf
$jjxc += 1
Next
$Num = StringLeft($Num, $jiami_lev) & $bhb & StringRight($Num, $jiami_lev)
$jiami_txt = StringTrimLeft(StringToBinary($jiami_txt, 2), 2)
$y_si = $sosu
$j_si = 1
Do
$vi = StringMid($jh[$j_si], 1, 1) + StringMid($jh[$y_si], StringLen($jh[$y_si]), 1)
$tempa = StringMid($jiami_txt, 1, $vi - 1)
$tempb = StringMid($jiami_txt, $vi)
$jiami_txt = $tempa & $jh[$j_si] & $tempb
$y_si -= 1
$j_si += 1
Until $y_si <= 0 And $j_si >= $sosu
$st = StringLen($Num)
$txtshi = StringLen($jiami_txt)
For $kl = 1 To $st
$rtemp = &#39;&#39;
For $vn = 1 To $txtshi Step StringMid($Num, $kl, 1) + 30
$rtemp = StringMid($jiami_txt, $vn, StringMid($Num, $kl, 1) + 30) & $rtemp
Next
$jiami_txt = $rtemp
Next
Return $jiami_txt
ElseIf $jiami_lp = 0 Then
$sosu = StringLen($jiami_pas)
For $pa_s = 1 To $sosu
$jh[$pa_s] = Asc(StringMid($jiami_pas, $pa_s, 1))
$Num = $Num & $jh[$pa_s]
If $jjxc > 3 Then $jjxc = 1
If $jjxc = 1 Then
$bhb = Int($bhb + $jh[$pa_s])
ElseIf $jjxc = 2 Then
$bhb = Int($bhb * $jh[$pa_s])
ElseIf $jjxc = 3 Then
$bhb = Int($bhb - $jh[$pa_s])
EndIf
$jjxc += 1
Next
$Num = StringLeft($Num, $jiami_lev) & $bhb & StringRight($Num, $jiami_lev)
$st = StringLen($Num)
Do
$txtshi = StringLen($jiami_txt)
$rtemp = &#39;&#39;
Do
$rtemp = $rtemp & StringRight($jiami_txt, StringMid($Num, $st, 1) + 30)
$jiami_txt = StringTrimRight($jiami_txt, StringMid($Num, $st, 1) + 30)
$txtshi -= StringMid($Num, $st, 1) + 30
Until $txtshi <= 0
$jiami_txt = $rtemp
$st -= 1
Until $st <= 0
$y_si = $sosu
$j_si = 1
Do
$vi = StringMid($jh[$y_si], 1, 1) + StringMid($jh[$j_si], StringLen($jh[$j_si]), 1)
$tempa = StringMid($jiami_txt, 1, $vi - 1)
$tempb = StringMid($jiami_txt, $vi + StringLen($jh[$y_si]))
$jiami_txt = $tempa & $tempb
$y_si -= 1
$j_si += 1
Until $y_si <= 0
$jiami_txt = &#39;0x&#39; & $jiami_txt
$jiami_txt = BinaryToString($jiami_txt, 2)
Return $jiami_txt
Else
Return -1
EndIf
EndFunc ;==>_password

大绯狼 发表于 2009-8-18 22:22:29

都是些字符编码问题 楼主下的代码得好好看看

afan 发表于 2009-8-18 23:08:35

300多行，会看晕

afan 发表于 2009-8-18 23:19:55

错误太多。。。LZ得自己排查了

C:\test.au3(11,9) : ERROR: can't open include file <SysTray_UDF.au3>
#include<SysTray_UDF.au3>
~~~~~~~~^
C:\test.au3(12,5) : 错误: 表达式错误 (不合规定的字符)
Opt(\
~~~~^
C:\test.au3(16,21) : 错误: 表达式错误 (不合规定的字符)
$log = @ScriptDir & \
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(16,69) : 错误: 表达式错误 (不合规定的字符)
$log = @ScriptDir & \"\\log\\ClientSetup\" & @YEAR & @MON & @MDAY & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(17,21) : 错误: 表达式错误 (不合规定的字符)
$dir = @ScriptDir & \
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(18,22) : 错误: 表达式错误 (不合规定的字符)
$url = IniRead($dir, \
~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(20,20) : 错误: 表达式错误 (不合规定的字符)
$input1 = InputBox(\
~~~~~~~~~~~~~~~~~~~^
C:\test.au3(20,58) : 错误: 表达式错误 (不合规定的字符)
$input1 = InputBox(\"配置\", \"远程密码下载地址\", $url, \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(20,69) : 错误: 表达式错误 (不合规定的字符)
$input1 = InputBox(\"配置\", \"远程密码下载地址\", $url, \"\", 300, \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(21,28) : 错误: 表达式错误 (不合规定的字符)
If @error = 1 Or $input1 = \
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(24,16) : 错误: 表达式错误 (不合规定的字符)
IniWrite($dir, \
~~~~~~~~~~~~~~~^
C:\test.au3(25,20) : 错误: 表达式错误 (不合规定的字符)
$input2 = InputBox(\
~~~~~~~~~~~~~~~~~~~^
C:\test.au3(25,71) : 错误: 表达式错误 (不合规定的字符)
$input2 = InputBox(\"配置\", \"PUBWIN解锁退出密码\", \"\", \"\", 300, \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(26,28) : 错误: 表达式错误 (不合规定的字符)
If @error = 1 Or $input2 = \
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(29,10) : 错误: 表达式错误 (不合规定的字符)
IniWrite(\
~~~~~~~~~^
C:\test.au3(30,16) : 错误: 表达式错误 (不合规定的字符)
IniWrite($dir, \
~~~~~~~~~~~~~~~^
C:\test.au3(31,11) : 错误: 表达式错误 (不合规定的字符)
MsgBox(0, \
~~~~~~~~~~^
C:\test.au3(34,15) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\
~~~~~~~~~~~~~~^
C:\test.au3(35,15) : 错误: 表达式错误 (不合规定的字符)
FileSetAttrib(\
~~~~~~~~~~~~~~^
C:\test.au3(36,12) : 错误: 表达式错误 (不合规定的字符)
FileDelete(\
~~~~~~~~~~~^
C:\test.au3(38,15) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\
~~~~~~~~~~~~~~^
C:\test.au3(41,32) : 错误: 表达式错误 (不合规定的字符)
If Not FileExists(@ScriptDir & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(41,71) : 错误: 表达式错误 (不合规定的字符)
If Not FileExists(@ScriptDir & \"\\log\") Then DirCreate(@ScriptDir & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,21) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,37) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,52) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,68) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,84) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,99) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(43,114) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(49,15) : 错误: 表达式错误 (不合规定的字符)
InetGet($url, \
~~~~~~~~~~~~~~^
C:\test.au3(50,21) : 错误: 表达式错误 (不合规定的字符)
$password = IniRead(\
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(51,20) : 错误: 表达式错误 (不合规定的字符)
If Not $password = \
~~~~~~~~~~~~~~~~~~~^
C:\test.au3(52,16) : 错误: 表达式错误 (不合规定的字符)
IniWrite($dir, \
~~~~~~~~~~~~~~~^
C:\test.au3(57,16) : 错误: 表达式错误 (不合规定的字符)
If $password = \
~~~~~~~~~~~~~~~^
C:\test.au3(58,27) : 错误: 表达式错误 (不合规定的字符)
$password = IniRead($dir, \
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(60,16) : 错误: 表达式错误 (不合规定的字符)
If $password = \
~~~~~~~~~~~~~~~^
C:\test.au3(61,21) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,37) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,52) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,68) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,84) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,99) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(61,114) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(62,15) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\
~~~~~~~~~~~~~~^
C:\test.au3(62,47) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\"Config.dat\") Then FileDelete(\
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(66,15) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\
~~~~~~~~~~~~~~^
C:\test.au3(66,47) : 错误: 表达式错误 (不合规定的字符)
If FileExists(\"Config.dat\") Then FileDelete(\
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,21) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,37) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,52) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,68) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,84) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,99) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(67,114) : 错误: 表达式错误 (不合规定的字符)
FileWriteLine($log, \"[\" & @YEAR & \"-\" & @MON & \"-\" & @MDAY & \" \" & @HOUR & \":\" & @MIN & \":\" & @SEC & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(68,14) : 错误: 表达式错误 (不合规定的字符)
$p_process = \
~~~~~~~~~~~~~^
C:\test.au3(72,22) : 错误: 表达式错误 (不合规定的字符)
If Not ProcessExists(\
~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(73,21) : 错误: 表达式错误 (不合规定的字符)
$list = ProcessList(\
~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(76,42) : 错误: 表达式错误 (不合规定的字符)
If StringInStr(Procespath($list[$i]), \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(92,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(97,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(99,18) : 错误: 表达式错误 (不合规定的字符)
If WinWaitActive(\
~~~~~~~~~~~~~~~~~^
C:\test.au3(104,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(106,19) : 错误: 表达式错误 (不合规定的字符)
$p_xy = WinGetPos(\
~~~~~~~~~~~~~~~~~~^
C:\test.au3(110,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(111,16) : 错误: 表达式错误 (不合规定的字符)
ControlSetText(\
~~~~~~~~~~~~~~~^
C:\test.au3(113,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(114,13) : 错误: 表达式错误 (不合规定的字符)
ControlSend(\
~~~~~~~~~~~~^
C:\test.au3(119,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(120,19) : 错误: 表达式错误 (不合规定的字符)
$p_xy = WinGetPos(\
~~~~~~~~~~~~~~~~~~^
C:\test.au3(124,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(125,15) : 错误: 表达式错误 (不合规定的字符)
WinWaitActive(\
~~~~~~~~~~~~~~^
C:\test.au3(127,13) : 错误: 表达式错误 (不合规定的字符)
ControlSend(\
~~~~~~~~~~~~^
C:\test.au3(129,13) : 错误: 表达式错误 (不合规定的字符)
ControlSend(\
~~~~~~~~~~~~^
C:\test.au3(132,34) : 错误: 表达式错误 (不合规定的字符)
If ProcessExists(@ComputerName & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(133,30) : 错误: 表达式错误 (不合规定的字符)
ProcessClose(@ComputerName & \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(135,18) : 错误: 表达式错误 (不合规定的字符)
If ProcessExists(\
~~~~~~~~~~~~~~~~~^
C:\test.au3(136,14) : 错误: 表达式错误 (不合规定的字符)
ProcessClose(\
~~~~~~~~~~~~~^
C:\test.au3(138,18) : 错误: 表达式错误 (不合规定的字符)
If ProcessExists(\
~~~~~~~~~~~~~~~~~^
C:\test.au3(139,14) : 错误: 表达式错误 (不合规定的字符)
ProcessClose(\
~~~~~~~~~~~~~^
C:\test.au3(145,18) : 错误: 表达式错误 (不合规定的字符)
If ProcessExists(\
~~~~~~~~~~~~~~~~~^
C:\test.au3(146,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(147,13) : 错误: 表达式错误 (不合规定的字符)
WinSetState(\
~~~~~~~~~~~~^
C:\test.au3(155,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(166,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(177,14) : 错误: 表达式错误 (不合规定的字符)
If WinExists(\
~~~~~~~~~~~~~^
C:\test.au3(189,12) : 错误: 表达式错误 (不合规定的字符)
MouseClick(\
~~~~~~~~~~~^
C:\test.au3(190,15) : 错误: 表达式错误 (不合规定的字符)
WinWaitActive(\
~~~~~~~~~~~~~~^
C:\test.au3(191,16) : 错误: 表达式错误 (不合规定的字符)
ControlSetText(\
~~~~~~~~~~~~~~~^
C:\test.au3(193,15) : 错误: 表达式错误 (不合规定的字符)
WinWaitActive(\
~~~~~~~~~~~~~~^
C:\test.au3(194,16) : 错误: 表达式错误 (不合规定的字符)
ControlSetText(\
~~~~~~~~~~~~~~~^
C:\test.au3(196,15) : 错误: 表达式错误 (不合规定的字符)
WinWaitActive(\
~~~~~~~~~~~~~~^
C:\test.au3(197,13) : 错误: 表达式错误 (不合规定的字符)
ControlSend(\
~~~~~~~~~~~~^
C:\test.au3(202,25) : 错误: 表达式错误 (不合规定的字符)
$objWMIService = ObjGet(\
~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(203,38) : 错误: 表达式错误 (不合规定的字符)
$colItems = $objWMIService.ExecQuery(\
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(207,31) : 错误: 表达式错误 (不合规定的字符)
$path = StringSplit($cmdpath, \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(219,17) : 错误: 表达式错误
If $jiami_txt = &
~~~~~~~~~~~~~~~~^
C:\test.au3(219,87) : ERROR: multi-line 'If' missing 'Then'. (不合规定的字符)
If $jiami_txt = &#39;&#39; Or $jiami_pas = &#39;&#39; Or StringLen($jiami_pas) > 100 _
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(85,40) : ERROR: _SysTrayIconIndex(): undefined function.
$p_index = _SysTrayIconIndex($p_process)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3(86,33) : ERROR: _SysTrayIconPos(): undefined function.
$p_xy = _SysTrayIconPos($p_index)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test.au3 - 100 error(s), 0 warning(s)

afan 发表于 2009-8-18 23:55:27

难道LZ不用测试的一路写下来？。。。

akmm88 发表于 2009-8-19 00:11:24

这个是AU3不是JAVA,就算是也没有这么用的啊,\"这个是在输出时才需要这么转义的.
只能说楼主太有才了.
网页上复制的东西,自己改改吧,javascript 的 document.write()才需要这样.慢慢改吧

iftodo 发表于 2009-8-19 01:45:24

:face (37):    难道又是一位用记事本写AU3的大侠?

查看完整版本: 分析一段程序,哪里错了