Jump to content

SnYder

Members
  • Posts

    11
  • Joined

  • Last visited

SnYder's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. I use COMODO security products and have been using it for a while and finally the Anti-Malware product has identified KeeForm 1.06 as containing a Trojan and has quarantined it. I'm really very skeptical about using this useful utility that I have come to like. I have heard that Autoit can and has been used to write some pretty bad scripts that could exploit vulnerabilities but does KeeForm fit that bill? Thanks.
  2. Mr IA: You really tickle me . It is amazing to see how people draw conclusions without even a clue what the other person could really be. I'll set aside all this for a moment and post the code here and see what you can come up with. [code=auto:0]Dim $SelUpldCas = "" Dim $dir0int = "" Dim $orgdeflpt = "" Dim $altdeflpt = "Acrobat PDFWriter,winspool,LPT1:" WinMinimizeAll () Func OrgDefLpt () $orgdeflpt = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device") EndFunc Func AltDefLpt () RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device","REG_SZ",$altdeflpt) EndFunc Func ResOrgLpt () RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device","REG_SZ",$orgdeflpt) EndFunc Func MyWinExplr () $winexplr = ObjCreate("InternetExplorer.Application") with $winexplr .Visible = 1 .Toolbar = 1 .Navigate($dir0int) EndWith EndFunc Func MySelCasDlg () $SelUpldCas = InputBox("What Case ??", "To continue please enter the case number to create report" &@LF&@LF& "Valid numbers are from 1 thro 5","", " M1") If @error = 1 Then MsgBox(0, "Terminated", "The report generation script was terminated by you.") Exit EndIf Select case $SelUpldCas = "1" $dir0int = @MyDocumentsDir&"\UpLoads#1\" MyWinExplr () case $SelUpldCas = "2" $dir0int = @MyDocumentsDir&"\UpLoads#2" MyWinExplr () case $SelUpldCas = "3" $dir0int = @MyDocumentsDir&"\UpLoads#3" MyWinExplr () case $SelUpldCas = "4" $dir0int = @MyDocumentsDir&"\UpLoads#4" MyWinExplr () case $SelUpldCas = "5" $dir0int = @MyDocumentsDir&"\UpLoads#5" MyWinExplr () Case $SelUpldCas = "0" MsgBox (0,"STOP!", "You entered a case that is invalid. At this time only cases #1 thro' #5 are possible. Please reenter the corrct case #") MySelCasDlg () Case $SelUpldCas >= "6" MsgBox (0,"STOP!", "You entered a case that is invalid. At this time only cases #1 thro' #5 are possible. Please reenter the corrct case #") MySelCasDlg () EndSelect EndFunc Func MyFilSel () Send("{HOME}") Sleep(3000) Send("{p}") ; This would be the first character of the filename Send("{r}") ; This would be the second character of the filename Send("{e}") ; This would be the third character of the filename Send("{x}") ; This would be the fourth character of the filename Send("{x}") ; This would be the fifth character of the filename Send("{X}") ; This would be the sixth character of the filename Send("{X}") ; This would be the seventh character of the filename Send("{ENTER}") ; This will open the document with the associated application Sleep(3000) Send("{CTRLDOWN}{P}") ; Print Dialogue Send("{CTRLUP}") ;~ An alternate method would be to use "Shift + F10" for context menu and select function, in my case it would be "convert to PDF". The lines will change depending on the methodology employed. Sleep(2000) Send("{ESC}") ; Print dialogue quit Send("{CTRLDOWN}{q}") Send("{CTRLUP}") ; Application & document quit Sleep(1000) Send("{ALTDOWN}{F4}") Send("{ALTUP}") ; Explorer window quit EndFunc OrgDefLpt () AltDefLpt () MySelCasDlg () MyFilSel () ResOrgLpt () Exit
  3. If you can't help and unwilling just don't do it. Don't tell me what life is. I have lived many moons on this "third rock from sun" and I have embraced computers with great adoration and admiration. Just don't think you are a know it all. Remember you were a toddler one day and grew up to be what you are. Sometimes we all need a little help, some more than others. I sincerely hope that dont find yourself in a situation where you would need help. As for the coding I'm perfectly capable of doing it myself if I put myself to it. Well thanks for your FISH and sweet nothings! May god bless you!
  4. I dont have a code as such. I do have a few examples that I can tailor all the way up to what I want finally achieve. I still don't see a way to print to a printer.
  5. On a monthly basis I print close to fifty (50) reports from a variety of applications to PDF using either CutePDF or Acrobat (standard version). I'm trying to automate this function but was unable to find a suitable AutoIT function to do so. Could somebody help please. Thanks. Documents are spread across several sub-directories ... @MyDocumentsDir\<Dir#1> @MyDocumentsDir\<Dir#2> @MyDocumentsDir\<Dir#3> @MyDocumentsDir\<Dir#4> @MyDocumentsDir\<Dir#5> ... so on and forth. There are four or five specific files that I need for my reports from each of these directories. Adobe "Convert to PDF" is available in the context menu (when I right click on the documents). Both Adobe PDF printer as well as CutePDF printers are available from the Print dialogue. Certainly appreciate all the help.
  6. Perfect I was looking everywhere and it never dawned upon me that a log file is the way to go. Thanks. >>
  7. A copy of my script has been placed on a network drive accessible to all users in my org. I would like to get a notification of people who have accessed or installed the script. Is there a way to do this? Please help. Thanks.
  8. Here's another Icon (simple) creator Free. They also have an extensive professional version for about $20/-. http://www.jhepple.com/iconmkr.htm
  9. Thanks for the suggestions. I have been able to accomplish it with Mouseclicks. I do agree that it is probably not the best way but gets the job done. I was able to use one more object ... ".Toolbar=False"
  10. Icon Maker http://iconempire.com/downloads/iconomaker.exe Icon Suite http://www.bouffler.freeserve.co.uk/Files/IconSuite.exe I have been using Icon Suite and like whatever it has to offer. For Freeware it is impressive. Cheers! SnYder
  11. Need help! I'm new to scripting in general and very new to AutoIT. I have developed an automation tool for some routine functions that involve using excel spreadsheets and IE. The tool is used by many users and I have run into some problems with mouse clicks. The tool was developed using my desktop and my preferences. I have no control on how other users have their browsers configured (small icons with text or large icons with text, etceteras). Question: Is there a way I can select how I want the IE browser set up while I run my script (only for the session)? In my code I'm using the following ... $oIE=ObjCreate("InternetExplorer.Application.1") With $oIE .Visible=1 .Left = 0 .Top = 0 .Height=600 .Width=900 .Silent=1 EndWith Are there any other options where I can say turn off links, make icons small (or the way I want)? This is so that the mouse click is exactly where it is intended. I'm using absolute screen coordinates and have tried the relative screen coordinates without any success. Thanks for all the help. Snyder
×
×
  • Create New...