Jump to content
Sign in to follow this  
newsak2005

AutoItX3.dll Script Function Sample

Recommended Posts

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============================================

Share this post


Link to post
Share on other sites

Last Script. NotePad Effect. FadeIn & FadeOut. :mellow:

$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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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!

:mellow:

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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);

//========================================================

Share this post


Link to post
Share on other sites

aut & NewSak2005 Go play somewhere else, you are not wanted here.

One more post like this and you are banned permanently.

Jos

Edited 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.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...