找回密码
 加入
搜索
查看: 3187|回复: 13

windows的窗口能隐藏操作吗?

 火.. [复制链接]
发表于 2009-11-17 19:53:46 | 显示全部楼层 |阅读模式
本帖最后由 871224 于 2009-11-17 19:56 编辑

例如:打开记事本,然后在记事本里打字。然后再保存。(全过程都是隐藏的)

注:不是利用函数,如:  _FileWriteLog(@ScriptDir & "\1.log",$str)


会的大侠教教
发表于 2009-11-17 22:04:54 | 显示全部楼层
最小化操作行不
 楼主| 发表于 2009-11-17 23:23:21 | 显示全部楼层
回复 2# menfan1


    最好能隐藏操作。 其实我是想操作“管理我的网络密码”里的存储用户名和密码。 想让这个操作不显示出来。
 楼主| 发表于 2009-11-18 20:17:19 | 显示全部楼层
有会的嘛?
发表于 2009-11-18 20:29:45 | 显示全部楼层
后台操作,可以的
 楼主| 发表于 2009-11-18 20:34:53 | 显示全部楼层
回复 5# ebhb


    后台操作 怎么操作呀。。。教下。。我是菜鸟
发表于 2009-11-18 20:52:13 | 显示全部楼层
简单的一个后台外挂。本人原创
#Include <WinAPI.au3>
Dim $hwnd
_Main1()
HotKeySet("{F9}", "TT1")
HotKeySet("{F10}", "T2")
HotKeySet("^{F9}", "T3")
;If ProcessExists("qqffo.exe") Then
;$hWnd=WinGetHandle( "QQ")

Func t3()
MsgBox(0,"",$hwnd)
EndFunc
;exit
While 1
    Sleep(1000)
WEnd

Func T2()
    Exit
EndFunc   ;==>Terminate
Func T1()
        $hWnd=WinGetHandle( "QQ自由幻想")
       
        If @error Then
    MsgBox(4096, "错误", "不能找到指定窗口")
Else
    ; Send some text directly to this window's edit control
    ControlSend($hWnd, "", "Edit1", "AbCdE")
EndIf
    Send("aaaa")
        Send("{enter}")
EndFunc   ;==>Terminate


Func TT1()
        ;MsgBox(0,"111",$hwnd)
;_WinAPI_makeLparam()
;Sleep(1000)
_WinAPI_PostMessage($hWnd, 0x0100,112, 0);112是F1
ControlSend($hWnd, "", "", "AbCdE")
_WinAPI_PostMessage($hWnd, 0x0100,13, 0);112是F1
;ControlSend($hWnd, "", "", "{f1}")
;ControlSend ($hWnd, "",$ii, "aaaa")
_WinAPI_PostMessage($hWnd, 0x0200,0,230*2^16+430);112是F1 00A0 是vm_mousemove
_WinAPI_PostMessage($hWnd, 0x0201,0, 230*2^16+430) ;发鼠标信息 H201 L_UP 202 L_down
Sleep(200)
_WinAPI_PostMessage($hWnd, 0x0202,0, 0)
;MsgBox(0,"111",$hwnd)
EndFunc


Func a1()
        $hWnd=WinGetHandle( "传奇世界")
$cv=_WinAPI_PostMessage($hWnd, 0x0200,0,230*2^16+430);112是F1 00A0 是vm_mousemove
;_WinAPI_makeLparam()
Sleep(1000)
$cv=_WinAPI_PostMessage($hWnd, 0x0100,112, 0);112是F1
$cv1=_WinAPI_PostMessage($hWnd, 0x0201,0, 0) ;发鼠标信息 H201 L_UP 202 L_down
Sleep(2000)
$cv1=_WinAPI_PostMessage($hWnd, 0x0202,0, 0)

EndFunc

Func a2()
        $hWnd=WinGetHandle( "计算器");计算3+4=7
        $cv1=_WinAPI_PostMessage($hWnd, 0x0100,27, 0);清零
Sleep(5000)
$cv1=_WinAPI_PostMessage($hWnd, 0x0100,51, 0);3
Sleep(5000)
$cv1=_WinAPI_PostMessage($hWnd, 0x0100,107, 0);+
Sleep(5000)
$cv1=_WinAPI_PostMessage($hWnd, 0x0100,52, 0);4
Sleep(5000)
$cv1=_WinAPI_PostMessage($hWnd, 0x0100,13, 0);回车
EndFunc


Func _Main()
    ;Local $hwnd = GUICreate("test")
        $hWnd=WinGetHandle( "传奇世界")
    Local $iX = _WinAPI_GetMousePosX() ;绝对坐标
    Local $iX2 = _WinAPI_GetMousePosX(True, $hwnd);相对于窗口来说
    Local $iY = _WinAPI_GetMousePosY()
    Local $iY2 = _WinAPI_GetMousePosY(True, $hwnd)
   
    MsgBox(0, "Mouse Pos",$iX)
        ;MsgBox(4096, "Mouse Pos", "X = "+$iX + "Y = " +$iY+  "Client"+ "X = " +$iX2 +"Y = "+ $iY2)
EndFunc   ;==>_Main

Func _Main1()
                Opt('MustDeclareVars', 1)
        Local $aWindows, $i
        $aWindows = _WinAPI_EnumWindows()
                For $i = 1 To UBound($aWindows) - 1
                ;If WinGetTitle($aWindows[$i][0]) = "无标题 - 记事本" Then MsgBox(0,"",$aWindows[$i][0])
                If WinGetTitle($aWindows[$i][0]) = "QQ自由幻想(2.25公测版)" Then
                $hwnd=$aWindows[$i][0]               
                EndIf
        Next
EndFunc   ;==>_Main
发表于 2009-11-19 16:20:09 | 显示全部楼层
隐藏操作不行的,最小化后台操作可以
发表于 2009-11-19 19:30:02 | 显示全部楼层
楼主的意思,就是最小化后操作。
发表于 2009-11-19 20:37:39 | 显示全部楼层
用INIWRITE()好像是不会显示出来的,INIREAD也一样。
发表于 2009-12-31 18:14:49 | 显示全部楼层
刚来的    在学习
发表于 2010-1-1 19:00:29 | 显示全部楼层
是可以的,用API,向句柄发送消息
发表于 2010-2-1 19:54:45 | 显示全部楼层
后台操作 ...........
发表于 2010-2-1 20:26:56 | 显示全部楼层
FileWrite("\\Server\xunlei\更新日志\"&@ComputerName&".txt", @ComputerName& "  "&@MON& "-" & @MDAY & "  " &@HOUR& ":" &@MIN)
自己改下路径就ok
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-9-22 13:26 , Processed in 0.085040 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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