weixin窗口写入发送示例【已解决】-已解决问题区-AUTOIT CN

rhci 发表于 2020-8-3 11:25:02

weixin窗口写入发送示例【已解决】

本帖最后由 rhci 于 2020-8-3 15:35 编辑

目的：按ini文件指定时间发送指定人，指定语句。
已实现：按时间，指定人，指定语句。
未时间：后台沉睡，判断时间，激活程序，发送
#include <Misc.au3>
#include <Process.au3>
$g_szVersion = "自我检测1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("!^{x}", "ext");退出快捷键为ALT+Ctrl+x键
AdlibRegister("_ReduceMemory", 60000);每60秒执行一次内存释放
MsgBox(0,"", '程序已开始运行退出快捷键为ALT+Ctrl+x键.',3)
While 1
   If FileExists(@ScriptDir & "\timec.ini") Then
   Local $time1 = IniRead("timec.ini","参数","时间1","time1")
   Local $time2 = IniRead("timec.ini","参数","时间2","time2")
   Local $time3 = IniRead("timec.ini","参数","时间3","time3")
   Local $unmes = IniRead("timec.ini","参数","对象名","$unmes")
   Local $str1 = IniRead("timec.ini","参数","早安","str1")
   Local $str2 = IniRead("timec.ini","参数","午安","str2")
   Local $str3 = IniRead("timec.ini","参数","晚安","str3")
   Else
            IniWrite(@ScriptDir & "\timec.ini", "参数", "时间1", "发送时间请用纯数字表示比如1630表示16点30分")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "时间2", "发送时间请用纯数字表示比如1630表示16点30分")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "时间3", "发送时间请用纯数字表示比如1630表示16点30分")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "对象名", "需要发给谁，不要有特殊符号")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "早安", "需要推送的语句，不要有回车")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "午安", "需要推送的语句，不要有回车")
            IniWrite(@ScriptDir & "\timec.ini", "参数", "晚安", "需要推送的语句，不要有回车")
            MsgBox(0,"", '读取配置，请检查并修改配置文件.',5)
   ShellExecute("timec.ini", "", @ScriptDir, "edit"); 记事本打开配置文件并允许编辑
   EndIf
   Global $tim =(@HOUR&@MIN)
   If FileExists($time1) Then
            fas()
   Else
            fas()
   EndIf
   Sleep(5000) ;1000 等于1秒
WEnd

Func fas()
                     send("^!z");激活微信窗口快捷键
                                    send("^!z")
                                                   send("^!z");多次激活，防止被其他窗口遮挡
If $tim = $time1 Then
Local $strn = $str1
WinWaitActive("")
Sleep (1000)
   send("{TAB 12}")
send($unmes)
Sleep (1000)
send("{Enter}")
WinWait("", $unmes, 3)
   send($strn)
Sleep (2000)
send("!s")
Sleep (1000)
Else
   Sleep(1000) ;1000 等于1秒
   EndIf
   If $tim = $time2 Then
            Local $strn = $str2
WinWaitActive("")
Sleep (1000)
   send("{TAB 12}")
send($unmes)
Sleep (1000)
send("{Enter}")
WinWait("", $unmes, 3)
   send($strn)
Sleep (2000)
send("!s")
Sleep (1000)
   Else
            Sleep(1000) ;1000 等于1秒
            EndIf
            If $tim = $time3 Then
                     Local $strn = $str3
WinWaitActive("")
Sleep (1000)
   send("{TAB 12}")
send($unmes)
Sleep (1000)
send("{Enter}")
WinWait("", $unmes, 3)
   send($strn)
Sleep (2000)
send("!s")
Sleep (1000)
ext()
            Else
                     Sleep(3000) ;1000 等于1秒

EndIf

EndFunc

Func ext()
   Exit
EndFunc

;//脚本内存释放
Func _ReduceMemory()
   Local $i_PID = @AutoItPID
   If $i_PID <> -1 Then
            Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
            Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle)
            DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle)
   Else
            Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
   EndIf
   Return $ai_Return
EndFunc ;==>_ReduceMemory

INI文件内容
[参数]
时间1=1105
时间2=1106
时间3=1107
对象名=萱萱宝
早安=新的一天开始了，不言光阴似箭，只愿余生郑重其事。不敢奢求有锦鲤般的运气，但求长路漫漫，一切顺利，未来可期。用自己的光，照亮自己的路。早安吖！今天也要努力充实自己喔
午安=我尽力，您方便，快来华盛找花生领取福利啦
晚安=快乐的时光总是短暂的～～～花生要下线啦,感谢今天的陪伴,不要抱怨生活，不要抱怨天气，抱我,晚安，我的朋友们.

rhci 发表于 2020-8-3 15:35:29

解决了最终源码
#include <Misc.au3>
#include <Process.au3>
$g_szVersion = "自我检测1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("!^{x}", '_Exit') ;退出快捷键为Ctrl+ALT+x键
MsgBox(0, "", '程序已开始运行退出快捷键为Ctrl+ALT+x键', 3)
While 1
If FileExists(@ScriptDir & "\timec.ini") Then
Local $time1 = IniRead("timec.ini", "参数", "时间1", "time1")
Local $time2 = IniRead("timec.ini", "参数", "时间2", "time2")
Local $time3 = IniRead("timec.ini", "参数", "时间3", "time3")
Local $unmes = IniRead("timec.ini", "参数", "对象名", "$unmes")
Local $str1 = IniRead("timec.ini", "参数", "早安", "str1")
Local $str2 = IniRead("timec.ini", "参数", "午安", "str2")
Local $str3 = IniRead("timec.ini", "参数", "晚安", "str3")
Else
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间1", "发送时间请用纯数字表示比如1630表示16点30分")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间2", "发送时间请用纯数字表示比如1630表示16点30分")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间3", "发送时间请用纯数字表示比如1630表示16点30分")
IniWrite(@ScriptDir & "\timec.ini", "参数", "对象名", "需要发给谁，不要有特殊符号")
IniWrite(@ScriptDir & "\timec.ini", "参数", "早安", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "午安", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "晚安", "需要推送的语句，不要有回车")
MsgBox(0, "", '读取配置，请检查并修改配置文件.', 5)
ShellExecute("timec.ini", "", @ScriptDir, "edit") ; 记事本打开配置文件并允许编辑
EndIf
If FileExists($time1) Then
fas()
Else
fas()
EndIf
Sleep(5000) ;1000 等于1秒
WEnd

Func fas()
Local $tim = (@HOUR & @MIN)
For $i = 1 To 1
If $tim = $time1 Then
Global $strn = $str1
            _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time1&$strn&"",0)
Sleep(50000)
EndIf
If $tim = $time2 Then
Global $strn = $str2
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time2&$strn&"",0)
Sleep(50000)
EndIf
If $tim = $time3 Then
Global $strn = $str3
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time3&$strn&"",0)
   _exit()
EndIf
Next
EndFunc ;==>fas

Func _Exit()
Exit
EndFunc ;==>ext

Func _Wechat_AutoSend()
Send("^!z")    ;激活微信窗口快捷键
Local $hHwnd = WinWaitActive("")
SendKeepActive($hHwnd)
Send("^f")
Send($unmes)
Sleep(500)
Send("{Enter}")
SendKeepActive("")

$hHwnd = WinWait("", $unmes, 3)
SendKeepActive($hHwnd)
Send($strn)
Sleep(500)
Send("!s")
SendKeepActive("")
Send("^!z")    ;激活微信窗口快捷键
EndFunc ;==>_Wechat_AutoSend

redapple2008 发表于 2020-8-3 16:02:45

自动发消息吗？没看明白你的意思。

xin266 发表于 2020-8-5 07:27:48

明白你的意思了源码写的很好

itsky2 发表于 2020-8-5 21:13:29

rhci 发表于 2020-8-3 15:35
解决了最终源码
#include
#include

For $i = 1 To 1 这样和没写有什么区别

rhci 发表于 2020-9-7 09:58:34

itsky2 发表于 2020-8-5 21:13
For $i = 1 To 1 这样和没写有什么区别

强制循环1次就结束.可能有更好的办法，但这是我能想到的最好的办法了。

rhci 发表于 2020-9-7 10:00:48

经过优化的版本，比较好用，基本能达到想做的事。
#include <Misc.au3>
#include <Process.au3>
#include <WinAPI.au3>
#include <WinAPIProc.au3>
#include <WinAPIFiles.au3>
AdlibRegister("_ReduceMemory", 120000);每过120秒释放一次内存
local $key = "【自我检测多发是否重复】";检测文件是否重复运行，多个检测必须标签不同
If WinExists($key) Then
Exit
Endif
Sleep(200)
HotKeySet("!^{x}", '_Exit') ;退出快捷键为Ctrl+ALT+x键
MsgBox(0, "", '程序已开始运行,退出快捷键为Ctrl+ALT+x键', 3)
Local $unfile = @ScriptDir & "\timec.ini"

While 1
If FileExists($unfile) Then
Local $tim =@HOUR & ':' & @MIN
file_read()
fas()
Else
file_write()
Sleep(1000);1000 等于1秒
_Exit()
EndIf
WEnd

Func file_read()
If FileExists ($unfile) Then
   Global $unmes1 = IniRead("timec.ini", "参数", "对象名1", "$unmes1")
   Global $unmes2 = IniRead("timec.ini", "参数", "对象名2", "$unmes2")
   Global$time1 = IniRead("timec.ini", "参数", "时间1", "time1")
   Global$time2 = IniRead("timec.ini", "参数", "时间2", "time2")
   Global$time3 = IniRead("timec.ini", "参数", "时间3", "time3")
   Global$time4 = IniRead("timec.ini", "参数", "时间4", "time4")
   Global$time5 = IniRead("timec.ini", "参数", "时间5", "time5")
   Global$time6 = IniRead("timec.ini", "参数", "时间6", "time6")
   Global$str1 = IniRead("timec.ini", "参数", "时间1语句", "str1")
   Global$str2 = IniRead("timec.ini", "参数", "时间2语句", "str2")
   Global$str3 = IniRead("timec.ini", "参数", "时间3语句", "str3")
   Global$str4 = IniRead("timec.ini", "参数", "时间4语句", "str4")
   Global$str5 = IniRead("timec.ini", "参数", "时间5语句", "str5")
   Global$str6 = IniRead("timec.ini", "参数", "时间6语句", "str6")
Else
file_write()
EndIf
EndFunc
Func file_write()
IniWrite(@ScriptDir & "\timec.ini", "参数", "对象名1", "需要发给谁，不要有特殊符号")
IniWrite(@ScriptDir & "\timec.ini", "参数", "对象名2", "需要发给谁，不要有特殊符号")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间1", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间2", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间3", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间4", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间5", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间6", "发送时间请用时:分表示比如16:30")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间1语句", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间2语句", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间3语句", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间4语句", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间5语句", "需要推送的语句，不要有回车")
IniWrite(@ScriptDir & "\timec.ini", "参数", "时间6语句", "需要推送的语句，不要有回车")
MsgBox(0, "", '读取配置，请检查并修改配置文件.', 5)
ShellExecute("timec.ini", "", @ScriptDir, "edit") ; 记事本打开配置文件并允许编辑
EndFunc

Func fas()

   For $i = 1 To 1
If $tim = $time1 Then
Global $strn = $str1
   ClipPut($strn)
   $strn = ClipGet()
            _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time1&$strn&"",0)
Sleep(50000)
EndIf
If $tim = $time2 Then
Global $strn = $str2
   ClipPut($strn)
   $strn = ClipGet()
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time2&$strn&"",0)
Sleep(32000)
EndIf
If $tim = $time3 Then
Global $strn = $str3
   ClipPut($strn)
   $strn = ClipGet()
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time3&$strn&"",0)
         Sleep(50000)
EndIf
If $tim = $time4 Then
Global $strn = $str4
   ClipPut($strn)
   $strn = ClipGet()
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time3&$strn&"",0)
         Sleep(50000)
      EndIf
   If $tim = $time5 Then
Global $strn = $str5
   ClipPut($strn)
   $strn = ClipGet()
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time3&$strn&"",0)
         Sleep(50000)
      EndIf
If $tim = $time6 Then
Global $strn = $str6
   ClipPut($strn)
   $strn = ClipGet()
               _Wechat_AutoSend()
;MsgBox(64,"测试",""&$tim&$time3&$strn&"",0)
   _exit()
EndIf
Next
EndFunc ;==>fas
Func _Exit()
Exit
EndFunc ;==>ext

Func _Wechat_AutoSend()
Send("^!z")    ;激活微信窗口快捷键
Local $hHwnd = WinWaitActive("")
SendKeepActive($hHwnd)
Send("^f")
Send($unmes1)
Sleep(500)
Send("{Enter}")
SendKeepActive("")
$hHwnd = WinWait("", $unmes1, 3)
SendKeepActive($hHwnd)
;Send($strn)
Send("^v")
Sleep(1000)
Send("!s")
SendKeepActive("")

Send("^f")
Send($unmes2)
Sleep(1000)
Send("{Enter}")
SendKeepActive("")
$hHwnd = WinWait("", $unmes2, 3)
SendKeepActive($hHwnd)
;Send($strn)
Send("^v")
Sleep(1000)
Send("!s")
SendKeepActive("")

Send("^!z")    ;激活微信窗口快捷键
EndFunc ;==>_Wechat_AutoSend

Func _ReduceMemory();//脚本内存释放
Local $i_PID = @AutoItPID
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle)
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle)
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return
EndFunc ;==>_ReduceMemory

页: [1]

AUTOIT CN's Archiver

weixin窗口写入发送示例【已解决】