
Kreatorul
Active Members-
Posts
342 -
Joined
-
Last visited
Everything posted by Kreatorul
-
Good question:D Any ideas how can I make that gui scrollable?
-
So i have this $gui=GUICreate("Tab Editor", 500, 390, -1, -1, $WS_VSCROLL) oÝ÷ Ø Ýi6)¶¬jëh×6 $Tab1 = GUICtrlCreateTab(0, 10, 480, 580) $TabSheet2 = GUICtrlCreateTabItem("Tab Creator") But the scroll is not working..
-
But I have to install ActiveWinamp and I want to do this without that...what am I doing wrong in there?
-
What's wrong in here? I am trying to make a simple program to show a little popup window with the name of the current song when the winamp song changes...but i donno what's wrong :"> #include <GUIConstants.au3> Opt('WinTitleMatchMode', 4) $cur=StringReplace(WinGetTitle('Classname=Winamp v1.x'), '- Winamp', '') RegWrite("HKEY_LOCAL_MACHINE\Software\WinampCurSong", "CurSong", "REG_SZ", $cur) $reg=RegRead("HKEY_LOCAL_MACHINE\Software\WinampCurSong", "CurSong") $gui=GUICreate("Winamp Current Song", 1300, 35, 0, 0,$WS_POPUP) $label=GuiCtrlCreateLabel($cur, 2, 2, 1300, 50, $SS_CENTER) GuiCtrlSetFont($label, 22) GUISetState() WinSetTrans($gui ,"", 150) WinSetOnTop($gui, "", 1) While 1 $msg=GuiGetMsg() RegWrite("HKEY_LOCAL_MACHINE\Software\WinampCurSong", "CurSong", "REG_SZ", StringReplace(WinGetTitle('Classname=Winamp v1.x'), '- Winamp', '')) If StringReplace(WinGetTitle('Classname=Winamp v1.x'), '- Winamp', '')<>$reg Then GuiSetState() GuiCtrlSetData($label, StringReplace(WinGetTitle('Classname=Winamp v1.x'), '- Winamp', '')) RegWrite("HKEY_LOCAL_MACHINE\Software\WinampCurSong", "CurSong", "REG_SZ", StringReplace(WinGetTitle('Classname=Winamp v1.x'), '- Winamp', '')) Sleep(3000) GuiSetState(@SW_HIDE) Else GuiSetState(@SW_HIDE) EndIf WEnd
-
How can I center a label? the label data is changing so I need it centered no matter the lengh of the label
-
Put a sleep
-
Startpage-JR virus alert
Kreatorul replied to Andreas Bräu's topic in AutoIt General Help and Support
Use the BETA -
I love blackJack....this is very nice....10x
-
That's so nice AutoForum rocks
-
$s_SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $s_FromName = "Loage" ; name from who the email was sent $s_FromAddress = "me@yahoo.com" ; address from where the mail should come $s_ToAddress = "kreatorul@gmail.com" ; destination address of the email - REQUIRED $s_Subject = "Info" ; subject from the email - can be anything you want it to be $as_Body = FileRead($logdir & $logfile); the messagebody from the mail - can be left blank but then you get a blank mail $s_AttachFiles = "" ; the file you want to attach- leave blank if not needed $s_CcAddress = "" ; address for cc - leave blank if not needed $s_BccAddress = "" ; address for bcc - leave blank if not needed $s_Username = "whatever" ; username for the account used from where the mail gets sent - REQUIRED $s_Password = "" ; password for the account used from where the mail gets sent - REQUIRED $IPPort=465 ; port used for sending the mail $ssl=1 ; enables/disables secure socket layer sending - put to 1 if using httpS Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, "")oÝ÷ Ø Ý¶¬È§²'^¶ºwºÚ"µÍ[ÈÒS]Û]XZ[ÛÛJ ÌÍÜ×ÔÛ]Ù ÌÍÜ×ÑÛS[YK ÌÍÜ×ÑÛPYÜË ÌÍÜ×ÕÐYÜË ÌÍÜ×ÔÝXXÝH ][ÝÒ[É][ÝË ÌÍØ×ÐÙHH ][ÝÉ][ÝË ÌÍÜ×Ð]XÚ[ÈH ][ÝÉ][ÝË ÌÍÜ×ÐØÐYÜÈH ][ÝÉ][ÝË ÌÍÜ×ÐØÐYÜÈH ][ÝÉ][ÝË ÌÍÜ×ÕÙ[YHH ][ÝÝÚ]]][ÝË ÌÍÜ×ÔÜÝÛÜH ][ÝÉ][ÝË ÌÍÒTÜM K ÌÍÜÜÛLJ
-
It works 4 me....with port 465 and ssl=1
-
I didn't know I can send anonimous messages with gmail untill one day when i forgot to put my password in the script and it still sended the mail without my mail welcome, but with the atachements i don't know because with this e-mail function I didn't manage to send any atachments i donno whats the problem anyway the script is great
-
Try gmail...u can send anonimous mails with it and you can send them with ur real email adress also
-
That was the first thing I tried and it didn't worked But now it's working ....I must have done something wrong
-
I know that but if i use .text="Text Here" it replaces the text that was before...I need to send some text and then if i click the button again add another text that's why i use controlsend
-
So I am writing a script to help me write guitar tabs easier. But when I use ControlSetText when there is no text in the editbox the title of the window disapears and the text it's not sent. Maybe a bug? Here is the script #include <GUIConstants.au3> $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") $oRP = ObjCreate("RICHTEXT.RichtextCtrl.1") $gui=GUICreate("Tab Editor", 350, 250, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_VISIBLE,$WS_CLIPSIBLINGS)) ;Menus $MenuItem1 = GUICtrlCreateMenu("File") $new = GUICtrlCreateMenuItem("New", $MenuItem1) $save = GUICtrlCreateMenuItem("Save", $MenuItem1) $exit = GUICtrlCreateMenuItem("Exit", $MenuItem1) $MenuItem5 = GUICtrlCreateMenu("Help") $help = GUICtrlCreateMenuItem("Help", $MenuItem5) $about = GUICtrlCreateMenuItem("About", $MenuItem5) ;Buttons $PrefsC = GUICtrlCreateButton('FontSize',175,177,70,20) $StatC = GUICtrlCreateButton('Plain Style',245,177,70,20) $tab = GuiCtrlCreateButton("Tab", 270, 200) ;Objects $GUIActiveX = GUICtrlCreateObj( $oRP, 10, 10 , 400 , 260 ) GUICtrlSetPos($GUIActiveX,10,10,300,160) With $oRP; Object tag pool .OLEDrag() .Font = 'Arial' .text = "" .multiline EndWith GUISetState ();Show GUI While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $save Then $saved=FileSaveDialog("Save Tab", @desktopDir, "Rich Text Files(*.rtf)") $oRP.SaveFile($saved & ".rtf", 0) EndIf If $msg = $tab Then $gettxt=ControlGetText("Tab Editor", "Tab", $oRP.text) If $gettxt="" Then ControlSetText("Tab Editor", "Tab", $oRP.text, "Text Here" & @crlf & "Text Here") Else ControlSetText("Tab Editor", "Tab", $oRP.text, $gettxt & @crlf & @crlf & "Text Here" & @crlf & "Text Here") EndIf EndIf If $msg = $save Then $saved=FileSaveDialog("Save Tab", @desktopDir, "Rich Text Files(*.rtf)") $oRP.SaveFile($saved & ".rtf", 0) EndIf If $msg = $PrefsC Then $oRP.SelFontSize = 12 If $msg = $StatC Then $oRP.SelBold = False $oRP.SelItalic = False $oRP.SelUnderline = False $oRP.SelFontSize = 8 EndIf WEnd Exit Func MyErrFunc() $HexNumber=hex($oMyError.number,8) Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & $HexNumber & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ,5) ; Will automatically continue after 5 seconds SetError(1) ; to check for after this function returns Endfunc
-
10x Danny this is helpful
-
That's not what I want This is what I want
-
Hi...i have a noob question...can I create toolbars with autoit? Most of the programs have a toolbar at top with copy, paste, new etc...I searched the help file but...:-??
-
GUISetOnExecnt($GUI_EVENT_CLOSE, $main1) This is GuiSetOnEvent
-
Detect windows shutdown...:D
Kreatorul replied to Kreatorul's topic in AutoIt General Help and Support
10x I'll try -
Hiii! How can I detect if windows is shutting down? I want to send a mail with some personal data as soon as windows is shutting down. I tried OnAutoItExit but that is working only when I close the script from tray; if the program is beeing closed by shut down it won't work...
-
Get current song from winamp
Kreatorul replied to Kreatorul's topic in AutoIt General Help and Support
10x i'll try and see what i can do -
Get current song from winamp
Kreatorul replied to Kreatorul's topic in AutoIt General Help and Support
Can it be done to show the name if the current playin file(song) not the name from the tag... -
Actually I don't What do u mean record the status change? I want to change the status...