-
Posts
707 -
Joined
-
Last visited
About Squirrely1
- Birthday 01/01/1957
Profile Information
-
Member Title
Stove pipe won't shut.
-
Location
Denver, U.S.A.
-
Interests
Philosophy, Judaism, land management, rulership, computers, engineering, building construction.
Recent Profile Visitors
460 profile views
Squirrely1's Achievements
Universalist (7/7)
1
Reputation
-
Starstar reacted to a post in a topic: prevent multiple runs, is that possible?
-
Englarge an Edit control's Undo queue - Solved
Squirrely1 replied to Squirrely1's topic in AutoIt General Help and Support
jdelaney, Thank-you for your help. kylomas, Thank-you. -
Englarge an Edit control's Undo queue - Solved
Squirrely1 replied to Squirrely1's topic in AutoIt General Help and Support
Maybe what I'm asking for look too much looking like a vicious key-logger. -
I would be thankful for any scripts that can enlarge the undo queue Or any good idea for a strategy for implementing undo's and redo's. I found this script on the web but I do use AutoIt3 ... case WM_CHAR: switch (wParam) { case 0x08: // Process a backspace. break; case 0x0A: // Process a linefeed. break; case 0x1B: // Process an escape. break; case 0x09: // Process a tab. break; case 0x0D: // Process a carriage return. break; default: // Process displayable characters. break; } It seems so far that this is a kind of a difficult project.
-
Very Small Function ::: _Ash_UserKey_Detect
Squirrely1 replied to Ashalshaikh's topic in AutoIt Example Scripts
Ashalshaikh - Thank you very much: you have succeeded completely in communicating what the function does. I have not discovered why anyone should write to this key or read from it except to clean out the registry of unnecessary clutter. Probably you should use a key under HKEY_CURRENT_USER or HKEY_LOCAL_MACHINE instead. -
Netherlands - You know you really probably should write your code in the selfsame language from beginning to end - "Not AutoIt" is probably a language that does not use "$" to designate a variable - what language are you trying to use?
-
Very Small Function ::: _Ash_UserKey_Detect
Squirrely1 replied to Ashalshaikh's topic in AutoIt Example Scripts
Ashalshaikh - Please describe for me more perspicaciously exactly what this function has purpose to do - use any modern language. -
For locations within the United States, a five-digit zipcode works best. But London, United Kingdom worked for me. For Düsseldorf, Germany - Use English letters... Dusseldorf, Germany For Hamburg, Federal Republic of Germany (Bundesrepublik Deutschland) - use "Hamburg, Germany" For city names of more than one word, like Tel Aviv, you can maybe go to http://www.weather.com and get the city code from the url "ISXX0026" and edit the ini file. I guess the script could use some work. Thanks for the feedback guys.
-
picea892 - type this in... Timmins, Canada If that doesn't work, type in just the name of a larger city or town nearby - if a dialog with a dropdown box comes up, use it to choose which Portland to use, Portland, Oregon or Portland, Maine. Then click on Refresh Weather Data. You can click anywhere on that MSN window to close it.
-
Here is a script I started working on about 2 1/2 years ago. A compiled version has survived some rigorous testing - but the script will probably not work in some countries due to the extended ASCII character problem found in another thread on the topic of googleweather (written by nobbe I think). Included within the .zip file, the image file should be unzipped to the same folder, the two includes files _IniFile.au3 and _ConnectSq.au3 go in your "includes library" else you should just put all four files in the same folder and change lines 103 & 104 within WeatherTraySq.au3 from... #include <_IniFile.au3> #include <_ConnectSq.au3> to... #include "_IniFile.au3" #include "_ConnectSq.au3" The Stuff: Enjoy the spring weather while it lasts!
-
MagnumXL You should post more of your code for a question like this, but perhaps just as helpful is taking more time to explain what your code is supposed to do. This looks strange - Send($s_vendor) And why are you using _GUICtrlComboBox_SetEditSel ?
-
Here is something I wrote about 4 months ago - since then JdeB or Jos or someone came up with a probably better version - but this has worked for me... ;#include <INet.au3> _SendMail("mailhost.worldnet.att.net", "Squirrel <meMyself@whereNot.net>", _ "Nut-gatherer <anotherPlace@squirels.com>", "Sq Biz", "", "", "C:\sqMail.htm") ; #FUNCTION# ======================================================================================= ; Name...........: _SendMail ; Description....: Calls the appropriate loop function, depending on the value of $_SS_Mode ; Syntax.........: ; ; _SendMail($sSmtpServer, $sToAddress, $sFromAddress, $sSubject, $sPlainTextBody, $sHtmlBody, $sLocalMhtmlFilepath, $sAttachmentFilepath, $sCarboncopyAddress, $sBlindCC ) ; ; Parameters.....: $sSmtpServer - "my.outgoing.smtp.server" ; $sToAddress - "Manadar <manadar@autoit.net>" ; $sFromAddress - "Squirrely1 <meMyself@myDomain.net>" ; $sSubject - Email's subject line - can contain no @CR's ; $sPlainTextBody - plain text as the body of the email ; $sHtmlBody - Html string as the body of the email - can contain @CRLF's ; $sLocalMhtmlFilepath - Mhtml file as the body of the email ; $sAttachmentFilepath - Attachments: "\\server\filefolder\FTPlog.TXT" or local file shortnamed ; $sCarboncopyAddress - CC's ; $sBlindCC - BCC's ; ; Return values .: (None.) ; ; Author.........: Lewis Roberts, Squirrely1 ; Modified.......: ; Remarks........: If youre sending the same message to more than one person, separate email ; address strings with commas in $sToAddress. ; ; Related........: _SS_SetTestLoopFunc, _SS_SetConfigLoopFunc, _SS_SetInstallLoopFunc, _SS_GUICreate, __TimeInTicksOf_LastUserInput . ; Link...........; http://www.lewisroberts.com/2006/06/09/sending-cdomessage-with-importance/ ; Example........; ; Reference......; INet.au3 ;=================================================================================================== Func _SendMail($sSmtpServer, $sToAddress, $sFromAddress = "", $sSubject = "", _ $sPlainTextBody = "", $sHtmlBody = "", $sLocalMhtmlFilepath = "", _ $sAttachmentFilepath = "", $sCarboncopyAddress = "", $sBlindCC = "") Local $objMail, $cdoConf, $sMhtmlFile, $sch $objMail = ObjCreate("CDO.Message") If @error Then Return SetError(1, 0, 0) $cdoConf = ObjCreate("CDO.Configuration") If @error Then Return SetError(1, 0, 0) With $objMail .From = $sFromAddress .To = $sToAddress .Subject = $sSubject Select Case StringLen($sPlainTextBody) .TextBody = $sPlainTextBody Case StringLen($sHtmlBody) .HTMLBody = $sHtmlBody; = "<h1>This is a message.</h1>" Case StringLen($sLocalMhtmlFilepath) If FileExists($sLocalMhtmlFilepath) Then; ; $sMhtmlFile = "file://" & StringLower(StringReplace(_INetExplorerCapable($sLocalMhtmlFilepath), "\", "/")) $sMhtmlFile = "file://" & StringLower(StringReplace($sLocalMhtmlFilepath, "\", "/")) ConsoleWrite(@CR & $sMhtmlFile & @CR) ;.CreateMHTMLBody "file://c:/mydocuments/test.htm" ... .CreateMHTMLBody($sMhtmlFile); Send an mhtml file as the body. EndIf EndSelect If StringLen($sAttachmentFilepath) Then .AddAttachment($sAttachmentFilepath) EndIf If StringLen($sCarboncopyAddress) Then .CC = $sCarboncopyAddress EndIf If StringLen($sBlindCC) Then .Bcc = $sBlindCC EndIf ;ConsoleWrite(@CR & .TextBody & @CR) ;ConsoleWrite(@CR & .HTMLBody & @CR) ;ConsoleWrite(@CR & .From & @CR) ;ConsoleWrite(@CR & .To & @CR) ;ConsoleWrite(@CR & .Subject & @CR) ; .AddAttachment("c:\mydocuments\test.txt") ; .CreateMHTMLBody("file://c:/mydocuments/test.htm"); Send an email as the body. ; EndWith $sch = "http://schemas.microsoft.com/cdo/configuration/" $cdoConf.Fields.Item($sch & "sendusing") = 2 ; $cdoConf.Fields.Item($sch & "smtpconnectiontimeout") = 480; 8 minutes? ; $cdoConf.Fields.Item($sch & "smtptimeout") = 480; 8 minutes? $cdoConf.Fields.Item($sch & "smtpserver") = $sSmtpServer; "mailhost.worldnet.att.net"; "my.outgoing.smtp.server" $cdoConf.Fields.Item($sch & "smtpserverport") = 25 $cdoConf.Fields.Item($sch & "smtpauthenticate") = 0 $cdoConf.Fields.Update $objMail.Configuration = $cdoConf $objMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"; For Outlook 2003. $objMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 2; For Outlook 2003. $objMail.Fields.Item("urn:schemas:httpmail:importance") = 2; For Outlook Express. $objMail.Fields.Update $objMail.Send; Send the email. Sleep(220) $objMail = 0; Clean-up the mail objects ... $cdoConf = 0 Sleep(380) EndFunc
-
I noticed an internal function in the UDF called _ICL_SaveIconGroup Are you thinking of writing a function that can create .icl files ProgAndy?
-
I haven't tested this, but in the call to _XMLFileOpen he should maybe pass a version number as the second parameter...$objDoc = _XMLFileOpen($infile, 3) It seems like the latest parser should be able to read these characters - if not, I think there is a international government conspiracy at work to prevent it because I am a congenital conspiracy theorist.
-
rejeshontheweb - Try the _LocalSystem_IsInet_Connected function within _ConnectSq.au3 - look below in the signature of this post. After some research, I decided that the WinInet function it calls is the most reliable way to check for a connection brcause some workstations don't allow an out-going Ping. :pinch:
-
WinINet.au3 (FTP/HTTP/HTTPS/Gopher+)
Squirrely1 replied to -Ultima-'s topic in AutoIt Example Scripts
Good work Ultima ! I'm just a scripter, so I had use for these simple functions which use somewhat modified versions of four of your WinInet UDF's ... ; Squirrely1 Functions: ; ; _ActiveInetConnection_IsLAN ; _ActiveInetConnection_IsDialup ; _ActiveInetConnection_IsThroughProxy ; _Dial_DefaultRASConnection ; _Disconnect_Dialup_Connection ; _Get_DefaultINetConnection_Name ; _IsSysConfiguredForDialup ; _LocalSystem_IsInet_Connected ; _Open_NetworkConnections_Folder - contains some new syntax and different set of tests