请问计事本怎么输出的是乱码!
2.ini谢霆锋背后的故事=0
贤内助女王=0
偷窥无罪=0
速度与激情4=0
我最爱的人=0
Const $cfgpath=@ScriptDir&"\2.ini"
Local $write
$write= IniReadSection($cfgpath, "222")
dim $zz[$write]
For $i= 1 To $write
$zz[$i-1]=IniRead($cfgpath,"222","",$write[$i])
Next
ControlSend("无标题", "", "Edit1", $zz) 默认的不支持 中文 因为是以编码形式输出的
可以看一下 下面的代码
Run("notepad.exe")
WinWaitActive("无标题 - ")
$Text = "中文 ：请多关照" & @CR
$Text &= "繁體 ：請多關照 " & @LF
$Text &= "日文 ：よろしくお願いします " & @CR
$Text &= "特殊符号： ♂☆⊙①ⅠΘ┆" & @LF
$Text &= "@CRLF 会换行2次" & @CRLF
$Text &= "End"
SendC($Text)
Func SendC($Str, $Flag = 0)
If $Flag Then
Local $Clip = ClipGet()
ClipPut($Str)
Send('+{ins}')
ClipPut($Clip)
Else
Local $Nul = Chr(0)
For $i = 1 To StringLen($Str)
Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & $Nul) & '}')
Next
EndIf
EndFunc ;==>SendC 好郁闷， 我还是没办法转入到程序中。。。
大哥可以帮我编辑下不 恩，LSD，不打你…… 看下这个，以前我求贴时的
仿手动输入一个一个的打
Run("notepad.exe")
WinWaitActive("无标题 - ")
$Text = "请不要点击鼠标！程序正在自动输入" & @CRLF
$Text &= " 测试说明" & @CRLF
$Text &= "请注意观看测试命令在 (Pinging 192.168.0.1 with 32 bytes of data:)下面的返回值" & @CRLF
$Text &= "如果出现：Request timed out.≥说明网络未连接或完全掉线" & @CRLF
$Text &= "如果出现：Reply from 192.168.0.1: bytes=32 time<1ms TTL=63 ≥说明网络连接正常 " & @CRLF
$Text &= "如果以上二种都有出现说明网络有掉包现像，有可能您正在使用P2P软件下载东西，time<的值越大，说明网络越卡 " & @CRLF
$Text &= "请仔细对照左边的程序和本说明做出判断！"& @CRLF
$Text &= "谢谢你的使用，请手动关闭本记事本,CMD程序已输入退出命令，按回车即可！"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "程序1秒后退出"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "现在可以动鼠标操作了！^v^ ^v^"& @CRLF
SendC($Text)
Sleep(1000)
Func SendC($Str, $Flag = 0)
If $Flag Then
Local $Clip = ClipGet()
ClipPut($Str)
Send('+{ins}')
ClipPut($Clip)
Else
Local $Nul = Chr(0)
For $i = 1 To StringLen($Str)
Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & $Nul) & '}')
Next
EndIf
EndFunc ;==>SendC
[ 本帖最后由 jycel 于 2009-3-23 00:12 编辑 ] :face (30):
页:
[1]