Jump to content

tutor2000

Active Members
 View Profile  See their activity

  • Posts

    284

  • Joined

  • Last visited

Profile Information

  • WWW
    http://KirkhamsEbooks.com

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

tutor2000's Achievements

Universalist

Universalist (6/7)

0

Reputation

  1. tutor2000
    Aloha everyone Long time Autoiter (Autoit 2) short time forum poster. I wrote a little clipboard storer with an hta gui and use short cuts to copy and paste clipboards. The variable space doesn't seem large enough though. For example graphics do not seem to be stored in the autoit variables. I know usually you show work, but since I'm going to ask if these can be stored in the registry, I thought I'd better ask you folks first. Thanks, Rick
  2. tutor2000
    Got it Changed the creation date instead Duh Rick
  3. tutor2000
    I'm having some trouble here changing the file date of photos in the Pictures library. I figured out how to get to the path do $folder=IniRead(@scriptdir&"\chagephotodate.ini","Folder","1","") $folder=FileSelectFolder ( "Select the location of your photos","" ,2, $folder ) if @error then exitfunc() if not StringInStr($folder,"\") then $folder = @UserProfileDir&"\"&$folder $shortfolder=FileGetShortName($folder) Run(@comspec &' /c start '&$shortfolder,@ScriptDir,@SW_HIDE) $ret=MsgBox(4100,"ComputerHelp808.com","You wrote"&@CRLF&$folder&@CRLF&"Is this correct?") IniWrite(@scriptdir&"\chagephotodate.ini","Folder","1",$folder) Until $ret=6 But after calling the func the photo date remains the same I did search for a solution on the forum of course first func changedate() $folder=IniRead(@scriptdir&"\chagephotodate.ini","Folder","1","") $day=IniRead(@scriptdir&"\chagephotodate.ini","Day","1",@MDAY) $month=IniRead(@scriptdir&"\chagephotodate.ini","Month","1",@MON) $year=IniRead(@scriptdir&"\chagephotodate.ini","Year","1",@YEAR) $var = FileSetTime($folder&"\*.jpg",$year&$month&$day) if $var=0 then msgbox(4096,"ComputerHelp808.com", "An error ocurred and your photo dates were not changed. Please restart the program and try again.") exitfunc() EndIf EndFunc I'm not getting an error. As far as the function goes it thinks it changed the date Rick
  4. tutor2000
    Trying to work with the help file but I still need an example Let's say Host mydomain.com User iamuser password thisispass file c:\blah\mywebpage.htm web target http://mydomain.com/folder/mywebpage.htm Is this enough to get an example? Rick
  5. tutor2000
    What happened what'd I miss? That's why I liked the yahoo group Rick
  6. tutor2000
    Just my lazy way of getting around stuff I don't know lol Rick
  7. tutor2000
    I started the script then need to click a button for the program to execute so just starting the program was not an option Generate this as part of your hta generation $hta = $hta &@CRLF& '<script language="VBScript"> ' $hta = $hta &@CRLF& 'Sub RunProgram ' $hta = $hta &@CRLF& 'document.title="Run Program by NewbieServices.com"' $hta = $hta &@CRLF& 'End Sub' $hta = $hta &@CRLF& '</script> ' $hta = $hta &@CRLF& '</head><body> <button onclick="RunProgram">Run Program</button> Now the button will rename the window Then place this in your autoit script Run(@ComSpec & " /c start "&@ScriptDir&"\DumbSubmitMenu.hta",@ScriptDir,@SW_HIDE) ;or whatever the name of your hta is WinWait("DumbSubmit by NewbieServies.com","") WinActivate("DumbSubmit by NewbieServies.com", "") WinMove("DumbSubmit by NewbieServies.com", "", 0, 0, 300, 300) WinSetOnTop("DumbSubmit by NewbieServies.com","",1) while WinExists("DumbSubmit by NewbieServies.com","") sleep(1000) WEnd The program will now wait until the window no longer exists which it doesn't when you click the vbscript button and rename the window Just a new trick I learned as a newbie Rick
  8. tutor2000
    Can't you just note the change in title? Rick
  9. tutor2000
    I having a similar problem In the google example the form has a name. How can I fill out a form if the form doesn't have a name? Rick
  10. tutor2000
    It's a mess and it's not done yet, but I'm happy to share what I can. I used start to avoid having to find the mshta file which is in a different location depending on the os I'm sure it could be improved upon by a real programmer Rick $min = 0 $hour = 0 $sec = 0 $tsec = 0 $tmin = 0 $thour = 0 $goalmin = 0 $goalsec = 0 $goalhour = 0 $testsec = 0 $oldtime = 0 $time = 0 $rounds = 1 $trounds = 30 #include <IE.au3> run(@comspec & " /c start c:\blah\modules\WorkOutTimerCount.hta", @ScriptDir, @SW_HIDE) WinWaitActive("Workout Timer by Kirkham","") WinSetState ( "Workout Timer by Kirkham", "", @SW_MAXIMIZE ) $oIE = _IEAttach("Workout Timer by Kirkham", "embedded") $body = _IEBodyReadHTML($oIE) $time = @HOUR&":"&@MIN&":"&@SEC $oldtime = @HOUR&":"&@MIN&":"&@SEC $body = StringReplace($body, "Time:", "Time: "&$time ) _IEBodyWriteHTML($oIE, $body) Do $oldtime = @HOUR&":"&@MIN&":"&@SEC if not winexists("Workout Timer by Kirkham","") Then Exit EndIf $body = _IEBodyReadHTML($oIE) ;Sleep(1000) changetimer() until not winexists("Workout Timer by Kirkham","") Exit Func changetimer() $testsec = @SEC while $testsec = @SEC sleep(100) WEnd if not winexists("Workout Timer by Kirkham","") Then Exit EndIf $body = StringReplace($body, "Seconds: "&$sec, "Seconds: "&$sec + 1) $sec= $sec + 1 $goalsec = $goalsec + 1 if not winexists("Workout Timer by Kirkham","") Then Exit EndIf if $sec >= 60 Then $sec = 0 $body = StringReplace($body, "Minutes: "&$min, "Minutes: "&$min + 1) $body = StringReplace($body, "Seconds: 60", "Seconds: 0") $min = $min + 1 EndIf if $min >= 60 Then $min = 0 $body = StringReplace($body, "Hours: "&$hour, "Hours: "&$hour + 1) $body = StringReplace($body, "Minutes: 60", "Minutes: 0") $body = StringReplace($body, "Seconds: 60", "Seconds: 0") $hour = $hour + 1 EndIf if not winexists("Workout Timer by Kirkham","") Then Exit EndIf $tsec = $tsec + $sec if $goalsec >= $trounds Then $body = StringReplace($body, "Round: "&$rounds, "Round: "&$rounds + 1 ) $rounds = $rounds + 1 $goalsec = 0 EndIf $time = @HOUR&":"&@MIN&":"&@SEC $body = StringReplace($body, "Time: "&$oldtime, "Time: "&$time ) _IEBodyWriteHTML($oIE, $body) Return EndFunc
  11. tutor2000
    I used run and got rid of _iecreate which got rid of the file download run save window Thanks a lot for your help Rick
  12. tutor2000
    Thanks bradah Can't wait to try it Rick
  13. tutor2000
    Grrrrrrrr Can you give me an example how to attach this #include <IE.au3> $oIE = _IECreate() _IENavigate($oIE, "c:\blahmodules\WorkOutTimerCount.html") ;_IENavigate($oIE, "c:\blah\modules\WorkOutTimerCount.hta") ;$oIEhta = _IEAttach ("Workout Timer by Kirkham Count","embedded") Thanks Rick
  14. tutor2000
    Sorry Easier to use vbscript in an hta for my workout timer Thanks I'll try what you say, but it's my first time using this so I may have to ask more questions Appreciate it Rick
  15. tutor2000
    This is a for a workout timer I'm working on using an hta (not done yet) How can I use iereadhtml on the hta so I can replace the ie browser with an hta for the timer Thanks Rick
×
×
  • Create New...