newsak2005 Posted August 15, 2011 Share Posted August 15, 2011 AU3 ToolTip Library Function ;==================================Start script sample========================================== Global $dll = DllOpen("AutoItX3.dll") _sample() Func _sample() Local $i = 0 Do $i +=1 _AU3_ToolTip("Timer:"&$i&'/9', 400, 300) Sleep(1000) Until $i >= 9 EndFunc ;====================================Library script============================================= Global $text, $Left, $Top Func _AU3_ToolTip($text, $Left, $Top) Local $sRet = DllCall($dll, "int", "AU3_ToolTip", "str", $text, "long", $Left, "long", $Top) If(@error)Or(Not $sRet)Then Return SetError(1, 0, 0) Return $sRet[0] EndFunc DllClose($dll) ;==================================End script sample============================================ Link to comment Share on other sites More sharing options...
trancexx Posted August 15, 2011 Share Posted August 15, 2011 I hope you don't have intention to post every little snippet you make as an example here. Besides, this is just dumb. ♡♡♡ . eMyvnE Link to comment Share on other sites More sharing options...
newsak2005 Posted August 16, 2011 Author Share Posted August 16, 2011 Last Script. NotePad Effect. FadeIn & FadeOut. $pid = DllCall("AutoItX3.dll", "int", "AU3_Run", "str", "Notepad.exe", "str", "", "long", 0) DllCall("AutoItX3.dll", "int", "AU3_WinWait", "str", "[CLASS:Notepad]", "str", "", "long", 1) DllCall("AutoItX3.dll", "int", "AU3_WinSetTrans", "str", "[CLASS:Notepad]", "str", "", "long", 0) WinSetState("[CLASS:Notepad]", "", @SW_SHOW) DllCall("AutoItX3.dll", "int", "AU3_WinMove", "str", "[CLASS:Notepad]", "str", "", "long", 400, "long", 300, "long", 300, "long", 200) For $i = 0 To 255 Step 3 DllCall("AutoItX3.dll", "int", "AU3_WinSetTrans", "str", "[CLASS:Notepad]", "str", "", "long", $i) Sleep(1) Next DllCall("AutoItX3.dll", "int", "AU3_Sleep", "long", 500) DllCall("AutoItX3.dll", "int", "AU3_ControlSetText", "str", "[Class:Notepad]", "str", "", "str", "Edit1", "str", "FadeIn") DllCall("AutoItX3.dll", "int", "AU3_Sleep", "long", 3000) DllCall("AutoItX3.dll", "int", "AU3_ControlSetText", "str", "[Class:Notepad]", "str", "", "str", "Edit1", "str", "FadeOut") DllCall("AutoItX3.dll", "int", "AU3_Sleep", "long", 1000) For $i = 255 To 0 Step -3 DllCall("AutoItX3.dll", "int", "AU3_WinSetTrans", "str", "[CLASS:Notepad]", "str", "", "long", $i) Sleep(1) Next DllCall("AutoItX3.dll", "int", "AU3_Sleep", "long", 1000) DllCall("AutoItX3.dll", "int", "AU3_ProcessClose", "str", $pid[0]) Exit Link to comment Share on other sites More sharing options...
smashly Posted August 16, 2011 Share Posted August 16, 2011 Hi, Thanks for sharing, but... Why would you use an interpreter to load a dll version of the interpreter to call functions that the calling interpreter already has? Am I not understanding something? Link to comment Share on other sites More sharing options...
JohnOne Posted August 16, 2011 Share Posted August 16, 2011 AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
smashly Posted August 16, 2011 Share Posted August 16, 2011 Lol, just as I thought useful as tits on a bull.Suppose I can look at it the same way as I look at a dog that licks it's balls itself and ask why?Because he can! Link to comment Share on other sites More sharing options...
aut Posted August 16, 2011 Share Posted August 16, 2011 He stole all the code in AutoIt Thailand forum Post here. He claims make code by self but... refer http://pssix.forumotion.com/t290-topic is DllCall("AutoItX3.dll".... make by POS admin thai autoit forum And he stole the code here into Thailand forum refer he stole http://www.justusers.net/forum/index.php?PHPSESSID=d7955286500c16abb302bb60dad9d899&topic=6743.0 replace name him make $Form1 = GUICreate("Network IP Manager - By sak2005", 337, 330, 350, 180) He claims to have expertise 8 Computer language and powerful user all time All Thai people hate him The fact that you can find at http://www.justusers.net Ask thai people you will get the answer Link to comment Share on other sites More sharing options...
newsak2005 Posted August 16, 2011 Author Share Posted August 16, 2011 Thanks. credit: JohnOne, trancexx, '================= VBS Script ========================== Dim oAutoIt Set oAutoIt = WScript.CreateObject("AutoItX3.Control") oAutoIt.ToolTip "This is some tip from AutoItX version" oAutoIt.Sleep(2000) oAutoIt.ToolTip "Bye bye now" oAutoIt.Sleep(800) '======================================================= ######################################################## ;================= AU3X Script ========================== Local $oAutoIt $oAutoIt = ObjCreate("AutoItX3.Control") $oAutoIt.ToolTip("This is some tip from AutoItX version") $oAutoIt.Sleep(2000) $oAutoIt.ToolTip("Bye bye now") $oAutoIt.Sleep(800) ;======================================================= ######################################################## //================== JS Script =========================== var oAutoIt; oAutoIt = new ActiveXObject("AutoItX3.Control"); oAutoIt.ToolTip("This is some tip from AutoItX version"); oAutoIt.Sleep(2000); oAutoIt.ToolTip("Bye bye now"); oAutoIt.Sleep(800); //======================================================== Link to comment Share on other sites More sharing options...
newsak2005 Posted August 16, 2011 Author Share Posted August 16, 2011 (edited) Confirm newsak2005 is sak2005 Please know that this is a rogue aut quarrelsome Edited August 16, 2011 by newsak2005 Link to comment Share on other sites More sharing options...
monoscout999 Posted August 16, 2011 Share Posted August 16, 2011 explin it to the mods.... both of you Link to comment Share on other sites More sharing options...
Developers Jos Posted August 16, 2011 Developers Share Posted August 16, 2011 (edited) aut & NewSak2005 Go play somewhere else, you are not wanted here. One more post like this and you are banned permanently. Jos Edited August 16, 2011 by Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts