Jump to content

Kreatorul

Active Members
  • Posts

    342
  • Joined

  • Last visited

Everything posted by Kreatorul

  1. Good question:D Any ideas how can I make that gui scrollable?
  2. 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..
  3. But I have to install ActiveWinamp and I want to do this without that...what am I doing wrong in there?
  4. 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
  5. How can I center a label? the label data is changing so I need it centered no matter the lengh of the label
  6. I love blackJack....this is very nice....10x
  7. That's so nice AutoForum rocks
  8. $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
  9. It works 4 me....with port 465 and ssl=1
  10. 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
  11. Try gmail...u can send anonimous mails with it and you can send them with ur real email adress also
  12. That was the first thing I tried and it didn't worked But now it's working ....I must have done something wrong
  13. 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
  14. 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
  15. 10x Danny this is helpful
  16. That's not what I want This is what I want
  17. 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...:-??
  18. GUISetOnExecnt($GUI_EVENT_CLOSE, $main1) This is GuiSetOnEvent
  19. 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...
  20. 10x i'll try and see what i can do
  21. Can it be done to show the name if the current playin file(song) not the name from the tag...
  22. Actually I don't What do u mean record the status change? I want to change the status...
×
×
  • Create New...