论坛 › 『 提问交流 』 › windows的窗口能隐藏操作吗？

871224 发表于 2009-11-17 19:53:46

windows的窗口能隐藏操作吗？

本帖最后由 871224 于 2009-11-17 19:56 编辑

例如：打开记事本，然后在记事本里打字。然后再保存。（全过程都是隐藏的）

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


会的大侠教教:face (32):

menfan1 发表于 2009-11-17 22:04:54

最小化操作行不

871224 发表于 2009-11-17 23:23:21

回复 2# menfan1


    最好能隐藏操作。 其实我是想操作“管理我的网络密码”里的存储用户名和密码。 想让这个操作不显示出来。

871224 发表于 2009-11-18 20:17:19

有会的嘛？

ebhb 发表于 2009-11-18 20:29:45

后台操作，可以的

871224 发表于 2009-11-18 20:34:53

回复 5# ebhb


    后台操作 怎么操作呀。。。教下。。我是菜鸟

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]) = "无标题 - 记事本" Then MsgBox(0,"",$aWindows[$i])
                If WinGetTitle($aWindows[$i]) = "QQ自由幻想(2.25公测版)" Then
                $hwnd=$aWindows[$i]               
                EndIf
        Next
EndFunc   ;==>_Main

wisly 发表于 2009-11-19 16:20:09

隐藏操作不行的，最小化后台操作可以

ebhb 发表于 2009-11-19 19:30:02

楼主的意思，就是最小化后操作。

pig 发表于 2009-11-19 20:37:39

用INIWRITE（）好像是不会显示出来的，INIREAD也一样。

l411126683 发表于 2009-12-31 18:14:49

刚来的    在学习

ceoguang 发表于 2010-1-1 19:00:29

是可以的,用API,向句柄发送消息

the886 发表于 2010-2-1 19:54:45

后台操作 ...........

qixinwb 发表于 2010-2-1 20:26:56

FileWrite("\\Server\xunlei\更新日志\"&@ComputerName&".txt", @ComputerName& ""&@MON& "-" & @MDAY & "" &@HOUR& ":" &@MIN)
自己改下路径就ok

查看完整版本: windows的窗口能隐藏操作吗？