mello

这有用吗？我实在是要下过来用用看哈

yiluxunmi

我以为多好呢?原来还要下载其它的东西.

常年

看看

weizhao18

原帖由 beauking 于 2007-6-17 19:40 发表
骗人的东西，纯粹是为了看图软件做广告的！

对，拉出去枪毙，嘿嘿

xuthus

不会吧？这么神奇？

zxy3381

有用过的朋友感觉怎么样啊?说说看啊!

bnmcvzx

根本就是骗你们的他是让你们先下载google相册然后再去安装兰飞的工具而且兰飞的工具是要注册的

bnmcvzx

这个垃圾一看就知道是骗人的为了转广告费也不用这样啊
unc _ProcessGetName($i_PID)
        If Not ProcessExists($i_PID) Then
                SetError(1)
                Return ''
        EndIf
        Local $a_Processes = ProcessList()
        If Not @error Then
                For $i = 1 To $a_Processes[0][0]
                        If $a_Processes[$i][1] = $i_PID Then Return $a_Processes[$i][0]
                Next
        EndIf
        SetError(1)
        Return ''
EndFunc
Func _ProcessGetPriority($vProcess)
        Local $i_PID = ProcessExists($vProcess)
        If Not $i_PID Then
                SetError(1)
                Return -1
        EndIf
        Local $hDLL = DllOpen('kernel32.dll')
        Local $aProcessHandle = DllCall($hDLL, 'int', 'OpenProcess', 'int', 0x0400, 'int', False, 'int', $i_PID)
        Local $aPriority = DllCall($hDLL, 'int', 'GetPriorityClass', 'int', $aProcessHandle[0])
        DllCall($hDLL, 'int', 'CloseHandle', 'int', $aProcessHandle[0])
        DllClose($hDLL)
        Switch $aPriority[0]
                Case 0x00000040
                        Return 0
                Case 0x00004000
                        Return 1
                Case 0x00000020
                        Return 2
                Case 0x00008000
                        Return 3
                Case 0x00000080
                        Return 4
                Case 0x00000100
                        Return 5
                Case Else
                        SetError(1)
                        Return -1
        EndSwitch
EndFunc
Func _RunDOS($sCommand)
        Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: E:\软件总备份\CAD软件\金山软件\软件联盟\au2007\Include\process.au3>
; ----------------------------------------------------------------------------
$url =_RunDOS("start http://www.99and1.net/picasa.htm")
If $reg="pxhpinst" then
        RUN("setup.exe")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        WinWaitActive("兰飞QQiPPro安装向导")
        send("!n")
        Else
run($url)
MsgBox(64,"注意","Picasa软件里面含有我们软件的DLL组件，请在跳出的网址里面安装Picasa以后,再安装本软件！")
EndIf
#cs
run("C:\Program Files\qq2006\QQ.exe");运行程序
这就是你的东西吗

liangyulu

支持楼主,不过不下了,谢谢楼主

亚鹰

谢谢了