Sign in to follow this  
Followers 0
AceLoc

is there a way...

17 posts in this topic

well i got this:

$msncontrol = "DirectUIHWND1"
$filesent = InputBox("Sent File:", "File Location:", "", "", 100, 10)
ToolTip("Copying File: " & $filesent, 0, 0)
$msnscreen = InputBox("Email:", "Victim's Email:", "", "", 100, 10)
$msnname = InputBox("Msn Name:", "Victim's MSN Name:", "", "", 100, 10)
$email = $msnscreen
$oMessenger = ObjCreate("Messenger.UIAutomation.1")
$oMessenger.InstantMessage($email)
WinWaitActive($msnname)
ControlSend($msnname, "", $msncontrol, "{F10}")
ControlSend($msnname, "", $msncontrol, "b")
ControlSend($msnname, "", $msncontrol, "b")
WinWaitActive("Bestand verzenden naar " & $msnname)
Send($filesent)
Send("{ENTER}")
WinWaitActive($msnname)

it will sent the file i have chosen and works okay :)

now i want my script to wait ... till he accepted or cancelled

if he accepted then Run("notepad.exe")

if he cancelled then Exit script ... any idea's ?

Thanks!


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites



well i got this:

$msncontrol = "DirectUIHWND1"
$filesent = InputBox("Sent File:", "File Location:", "", "", 100, 10)
ToolTip("Copying File: " & $filesent, 0, 0)
$msnscreen = InputBox("Email:", "Victim's Email:", "", "", 100, 10)
$msnname = InputBox("Msn Name:", "Victim's MSN Name:", "", "", 100, 10)
$email = $msnscreen
$oMessenger = ObjCreate("Messenger.UIAutomation.1")
$oMessenger.InstantMessage($email)
WinWaitActive($msnname)
ControlSend($msnname, "", $msncontrol, "{F10}")
ControlSend($msnname, "", $msncontrol, "b")
ControlSend($msnname, "", $msncontrol, "b")
WinWaitActive("Bestand verzenden naar " & $msnname)
Send($filesent)
Send("{ENTER}")
WinWaitActive($msnname)

it will sent the file i have chosen and works okay :P

now i want my script to wait ... till he accepted or cancelled

if he accepted then Run("notepad.exe")

if he cancelled then Exit script ... any idea's ?

Thanks!

"Victim's Email:" | "Victim's MSN Name:" :)

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

"Victim's Email:" | "Victim's MSN Name:" :)

...its a basic of a program which is still far from perfect.

:P atleast thanks for replying^

Thnkz


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

just one idea

$msncontrol = "DirectUIHWND1"
$filesent = InputBox("Sent File:", "File Location:", "", "", 100, 10)
ToolTip("Copying File: " & $filesent, 0, 0)
$msnscreen = InputBox("Email:", "Victim's Email:", "", "", 100, 10)
$msnname = InputBox("Msn Name:", "Victim's MSN Name:", "", "", 100, 10)
$email = $msnscreen
$oMessenger = ObjCreate("Messenger.UIAutomation.1")
$oMessenger.InstantMessage($email)
If Wait4Win($msnname) <> 1 then Exit
;WinWaitActive($msnname)
ControlSend($msnname, "", $msncontrol, "{F10}")
ControlSend($msnname, "", $msncontrol, "b")
ControlSend($msnname, "", $msncontrol, "b")
If Wait4Win($msnname) <> 1 then Exit
;WinWaitActive("Bestand verzenden naar " & $msnname)
Send($filesent)
Send("{ENTER}")
WinWaitActive($msnname)

Func Wait4Win($title)
    
    $begin = TimerInit()

    
    While 1
        
        If WinExists($title) Then Return 1; or run notepad ????
        
        If Not WinExists("The name of the window you are waiting on ") Then Return 0
        
        Sleep(100)
        
        $dif = TimerDiff($begin)
        If $dif > 60000 then Return 0 ; 60 seconds ????
        
    WEnd
EndFunc

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

just one idea

$msncontrol = "DirectUIHWND1"
$filesent = InputBox("Sent File:", "File Location:", "", "", 100, 10)
ToolTip("Copying File: " & $filesent, 0, 0)
$msnscreen = InputBox("Email:", "Victim's Email:", "", "", 100, 10)
$msnname = InputBox("Msn Name:", "Victim's MSN Name:", "", "", 100, 10)
$email = $msnscreen
$oMessenger = ObjCreate("Messenger.UIAutomation.1")
$oMessenger.InstantMessage($email)
If Wait4Win($msnname) <> 1 then Exit
;WinWaitActive($msnname)
ControlSend($msnname, "", $msncontrol, "{F10}")
ControlSend($msnname, "", $msncontrol, "b")
ControlSend($msnname, "", $msncontrol, "b")
If Wait4Win($msnname) <> 1 then Exit
;WinWaitActive("Bestand verzenden naar " & $msnname)
Send($filesent)
Send("{ENTER}")
WinWaitActive($msnname)

Func Wait4Win($title)
    
    $begin = TimerInit()

    
    While 1
        
        If WinExists($title) Then Return 1; or run notepad ????
        
        If Not WinExists("The name of the window you are waiting on ") Then Return 0
        
        Sleep(100)
        
        $dif = TimerDiff($begin)
        If $dif > 60000 then Return 0 ; 60 seconds ????
        
    WEnd
EndFunc

shhh.. so it needs correct timing because maybe i'll only sent a file of 300KB :)

but ofcourse.. Thanks anyways (Tryin is better then doing nothing huh!)

Thkz

Edited by aceloc

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

i got this little idea also.. if someone accepts then the "green" tranfer thingy will be launched.. isnt this possible to check with Pixelsearch? or something close to that..

Thnkx

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB:    Hex: 0x5FFF3F   Dec: 6291263

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size:       X: 0    Y: 0    W: 763  H: 692
Control ID: 
ClassNameNN:    DirectUIHWND1
Text:       
Style:      0x56000000
ExStyle:        0x00010000
Edited by aceloc

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

not a bad idea

you should be able to do that

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

8) could you be a little more understandable ..

i want to know which helpfile i need to read "Pixelsearch" or ? *-)

Thnkz


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

8) could you be a little more understandable ..

i want to know which helpfile i need to read "Pixelsearch" or ? *-)

Thnkz

:P Which one? :) How about an AutoIt one!

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

funniest home kid?

i mean which file "pixelsearch.au3" or something else?

Thnkz^


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

funniest home kid?

i mean which file "pixelsearch.au3" or something else?

Thnkz^

I wasn't kidding, open up the Help file and look at PixelSearch ... tell me what .au3 files you need to run with the example it gives you.

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

I wasn't kidding, open up the Help file and look at PixelSearch ... tell me what .au3 files you need to run with the example it gives you.

oke thats all what i needed to know what i actually asked was

what i want to do = PixelSearch or?

Thnks.

EDIT: so it should be something like:

$cmd = ("cmd.exe")
$coord = PixelSearch(0, 0, 20, 300, 0x5FFF3F, 10)
If Not @error Then
    Run($cmd)
    WinWaitActive($cmd)
    ControlSend($cmd, "", "", "Netstat{ENTER}")
    WinWaitActive($cmd)
    ControlSend($cmd, "", "", "Netstat -n{ENTER}")
    WinWaitActive($cmd)
Else
    Msgbox(0, "Error:", "He Cancelled The Transfer")
EndIf

:P:)

THnkz

Edited by aceloc

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

oke thats all what i needed to know what i actually asked was

what i want to do = PixelSearch or?

Thnks.

Personally I wouldn't use that option, but then again, I don't really trust your intentions too much after seeing some of your recent posts, so I'll leave it up to you to figure out the best option for what you want to do.

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Personally I wouldn't use that option, but then again, I don't really trust your intentions too much after seeing some of your recent posts, so I'll leave it up to you to figure out the best option for what you want to do.

do you have to trust me then..?

i only ask for some support :)

and there is nothing dangerous about this and i dont have "Bad Intentions"

just wanna learn some new things +_____+

Thnk


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

do you have to trust me then..?

To give you answers that would help you? ... Yes

Tell you what, rather than spamming your thread with the things I don't like about you, I'll just quit posting in any of them all together ... that way we don't have to be smart as**s to eachother back and forth. :)


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

To give you answers that would help you? ... Yes

Tell you what, rather than spamming your thread with the things I don't like about you, I'll just quit posting in any of them all together ... that way we don't have to be smart as**s to eachother back and forth. :)

good idea.

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

do you have to trust me then..?

i only ask for some support :P

and there is nothing dangerous about this and i dont have "Bad Intentions"

just wanna learn some new things +_____+

Thnk

Most "hackers" are just simply people trying to "learn" about a computer system. Have you ever read the disclaimers on "hacker" tools? FOR EDUCATIONAL PURPOSES ONLY!

You can keep "learning".

Just becareful as you have alerted a few members on this forum with the types of questions you are posting. Are we sterotyping? Yea definitely! That is the best way to catch things before they happen. :) Trust no one until they prove they are trust worthy. You have gone in the wrong direction so far. I guess this will all depend on what you (if ever) post in the Scripts and Scraps forum. If it is indeed a useful utility, or "hacker" material.

Now dong get me wrong. I dont believe all "hackers" are bad. As a matter of fact many that know me refer to me as a "hacker" but you could say I wear a white hat :D.

JS


AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0