Jump to content
Sign in to follow this  
newsak2005

AutoItX3.dll Script Function Sample

Recommended Posts

newsak2005

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
trancexx

I hope you don't have intention to post every little snippet you make as an example here.

Besides, this is just dumb.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites
newsak2005

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
smashly

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
smashly

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
aut

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
newsak2005

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
newsak2005

Confirm newsak2005 is sak2005

Please know that this is a rogue :mellow: aut :) quarrelsome

Edited by newsak2005

Share this post


Link to post
Share on other sites
monoscout999

explin it to the mods.... both of you

Share this post


Link to post
Share on other sites
Jos

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

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        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  

×