找回密码
 加入
搜索
查看: 2251|回复: 6

分析一段程序,哪里错了

[复制链接]
发表于 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] = 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 & "][Error] 没有找到配置文件.")
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 & "][Error] 下载远程配置文件失败")
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 & "][Info] 解密成功")
$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[0][0]
If StringInStr(Procespath($list[$i][1]), "PubwinClient\\smss.exe") > 1 Then
$ep_pid = $list[$i][1]
If ProcessExists($list[$i][1]) Then ProcessClose($list[$i][1])
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[0] + 7
$p_y = $p_xy[1] + 7
MouseMove($p_x, $p_y, 0)
MouseClick("left", $p_x, $p_y, 2, 0)
Sleep(500)
$p_y = $p_xy[1] - 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[0] + $p_xy[2] / 2
$p_y = $p_xy[1] + $p_xy[3] / 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[0] + $p_xy[2] / 2
$p_y = $p_xy[1] + $p_xy[3] / 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[0] <= 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[100]
If $jiami_txt = '' Or $jiami_pas = '' 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 = ''
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 = ''
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 = '0x' & $jiami_txt
$jiami_txt = BinaryToString($jiami_txt, 2)
Return $jiami_txt
Else
Return -1
EndIf
EndFunc ;==>_password
发表于 2009-8-18 22:22:29 | 显示全部楼层
都是些字符编码问题 楼主下的代码得好好看看
发表于 2009-8-18 23:08:35 | 显示全部楼层
300多行,会看晕
发表于 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][1]), \
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
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)
发表于 2009-8-18 23:55:27 | 显示全部楼层
难道LZ不用测试的一路写下来?。。。
发表于 2009-8-19 00:11:24 | 显示全部楼层
这个是AU3不是JAVA,就算是也没有这么用的啊,\"这个是在输出时才需要这么转义的.
只能说楼主太有才了.
网页上复制的东西,自己改改吧,javascript 的 document.write()才需要这样.慢慢改吧
发表于 2009-8-19 01:45:24 | 显示全部楼层
    难道又是一位用记事本写AU3的大侠?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-6-16 06:57 , Processed in 0.134256 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表