请问计事本怎么输出的是乱码!

ailuzhen

2.ini

[222]
谢霆锋背后的故事=0
贤内助女王=0
偷窥无罪=0
速度与激情4=0
我最爱的人=0


Const $cfgpath=@ScriptDir&"\2.ini"
Local $write
$write= IniReadSection($cfgpath, "222")
dim $zz[$write[0][0]]
For $i= 1 To $write[0][0]
$zz[$i-1]=IniRead($cfgpath,"222","",$write[$i][0])
Next
ControlSend("无标题", "", "Edit1", $zz[Random(0,4,1)])

xrbenbeba

默认的不支持 中文 因为是以编码形式输出的

可以看一下 下面的代码
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

ailuzhen

好郁闷， 我还是没办法转入到程序中。。。
大哥可以帮我编辑下不

小猫妖

恩，LSD，不打你……

jycel

看下这个，以前我求贴时的
仿手动输入一个一个的打

                     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 编辑 ]

ailuzhen