Jump to content

Azazel

Active Members
  • Posts

    69
  • Joined

  • Last visited

Everything posted by Azazel

  1. Hi Mat, DriveMappAdd give you the possibiliby for mapping a drive but not a folder For my second question, when you mapp a drive you cannot change the name of the result mapping drive In the name, you have the complete network way as x:folder1subfolder1subdolder2... You can remame it by right clic of the mouse and "remane" to obtain X: (My network) but autoit doesn't permit it Best regards
  2. Hi team, I'm back in the forum after all lost of years I started with Autoit at the beginning and i still use it almost every days i'm not sure i'm in the good place but i propose a new function for autoit Why not addind in the drive mapping place a function like "MapFolder" using "Subst" function from microsoft ? http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/subst.mspx?mfr=true To drive a folder as a drive letter... exemple : Run(@ComSpec & " /c " & 'subst D: "C:\My Folder"', "", @SW_HIDE) ; Mapp the folder "C:\My Folder" with letter "D:\" mapping drive ;Run(@ComSpec & " /c " & 'subst D: /d', "", @SW_HIDE) ; Command for removing the mapping with a syntax like : FolderMapAdd ( "Mapping letter", "remote folder") I'm happy to see you Again Best regards Marc PS: Just a question about mapping a drive I have map a network like "//Network/folder1/folder2/....folderxxx" with a letter "X:" but in Explorer the drive mapped appear like X: (//Network/folder1/folder2/....folderxxx) I have changed the name with mouse right clic and rename it X: (My network) but is there a command or a script to do it automatically ? Thank you for your answer
  3. I understant your opinion, unfortunatly, the script i put here is a small part of a bigger AutoIt program So i need your help to make it works Thanks a lot Marc
  4. No more help ?
  5. My collegues use this excel sheet to send spare parts to customers, i don't want to interract with there job with a input box i just want to read the datas they fill in to generate the "Save as" name
  6. Hi, The cell 1,2 is set by the user When the Excel sheet is start this cell is blank Best regards
  7. Hi everybody, My goal is to write and read some datas in a excel sheet . I want to read the cell (1,2) and use this data to fill the name of the book in "Save as" I'm in front of 2 errors and crashes I use Autoit v3.2.13.13 (beta) Souce code : #include <Excel.au3> #include <Date.au3> $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc"); Install a custom error handler $date=@MDAY&"/"&@MON&"/"&@YEAR $oExcel = _ExcelBookNew() _ExcelWriteCell($oExcel, $date, 1, 1);Write to the Cell while 1 $name = _ExcelReadCell($oExcel, 1, 2) if $name<>"" Then ExitLoop EndIf Sleep(500) WEnd WinWait("Save As","") ControlSetText( "Save As", "", "[CLASS:RichEdit20W; INSTANCE:2]", @ScriptDir&"\"&@YEAR&"\SEM "&_WeekNumberISO()&$name&".xls") Exit Func MyErrFunc() ;Avoid CRASH EndFunc ;==>MyErrFunc First Crash : If in don't use a "Install a custom error handler" when i start to fill the cell (1,2) i have this message : C:\Program Files\AutoIt3\beta\Include\Excel.au3 (685) : ==> The requested action with this object has failed.: Return $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value Return $oExcel.Activesheet^ ERROR I use a error handler to solve the problem Second crash : If i use the error handler and i close the Excel sheet before opening "Save as" i have this message : C:\Program Files\AutoIt3\beta\Include\Excel.au3 (685) : ==> Missing right bracket ')' in expression.: Return $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value Return ^ ERROR Please help me for debugging my script Best regards Marc
  8. see WinGetPos ( "title" [, "text"] ) Aza
  9. hi ! do you really need to move the mouse ? if not you can do like this (i use mozilla replace by firefox) $url= result of your inputbox run("C:\Program Files\mozilla.org\Mozilla\mozilla.exe"&chr(32)&$url) or run("C:\Program Files\Internet Explorer\iexplore.exe"&chr(32)&$url) ????
  10. When you have some " " you have to replace by ' ' So try this and let me know: #include <Process.au3> $rc = _RunDos('netsh interface IP set address "L" static 192.168.0.1 255.255.255.0') Aza
  11. I'm not sure i understand what you want but if you want to click for exemple on the third link this is a exemple : #include <IE.au3> $oIE = _IE_Example ("basic") $oLinks = _IELinkGetCollection ($oIE,-1) $iNumLinks = @extended Dim $link[@extended+1] MsgBox(0, "Link Info", $iNumLinks & " links found") $value=1 For $oLink In $oLinks MsgBox(0, "Link Info", $oLink.href) $link[$value]=$oLink.href $value=$value+1 Next _IENavigate($oIE,$link[3]) $link[1] contain the first link and so on... is it your question ? Aza
  12. no help for spamming Aza
  13. Andrew Peacock you make a mistake it's not "GUISetOnEvent" you have to use but "GUICtrlSetOnEvent" Good continuation Aza #Include <Constants.au3> #include <GUIConstants.au3> #include <Color.au3> #include <Array.au3> #include <File.au3> #Include <Misc.au3> AutoItSetOption("GuiOnEventMode",1) ; Go to on-event mode $gui = GUICreate("Stay On Focus!", 600,500) $btnDelete0 = guictrlcreatepic("delete.jpg", 530, 30, 16, 16, bitor($SS_NOTIFY, $GUI_SS_DEFAULT_PIC)) GUICtrlSetOnEvent($btnDelete0,"deleteTask0") ;GUISetOnEvent($btnDelete0, "deleteTask0") GUISetState(@SW_SHOW) While 1 Sleep(10) WEnd func deleteTask0() msgbox(0, "deleting 0", "") ;deleteTask(0) EndFunc
  14. you are right yxrkt, it seems there is a bug in this function it seems that the size of the line you read depend of the last one as you can see if you add 2 spaces after "Third line lala " the second line is displayed correctly very strange #Include <GuiEdit.au3> GuiCreate('',260,260) $h_edit = guictrlcreateedit('First line lala'&@CRLF&"Second line lala"&@CRLF&"Third line lala ",1,1,250,250) guisetstate() $totlines = _GUICtrlEditGetLineCount ( $h_edit ) for $i = 0 to $totlines msgbox(0,'',_GUICtrlEditGetLine($h_edit, $i)) Next
  15. Hi xxfxx Why do you make a loop inside your script ? Delete this lines $Paused = Not $Paused While $Paused and Wend make your script run once Start again by pressing "Home" Aza
  16. Thanks Jdeb for explanations, i m waiting ....
  17. i'm agree with this, however i always work with beta version of autoit and since today beta versions was in line... like v3.2.1.14 (beta) so why now i can't found v3.2.2.x to work around ?
  18. I think i'm stupid but where can i find 3.2.3.0 version ? It don't exist in beta download directory
  19. I'm suprised that there is no new beta version of Autoit since 09-Dec-2006. Does the developpement is finished(closed) or it will continue in a near future ? thanks Aza
  20. Hi, Add this to the script : Opt("SendKeyDelay",500) Adjust 500 to less or more as you want ++ Aza Opt("SendKeyDelay",500); brief pause in between sent keystrokes in milliseconds (500= 0.5 Seconde) HotKeySet("{END}", "_end") While 1 _Send() Sleep(5000) WEnd Func _Send() Send("{Enter}{UP}{enter}") EndFunc;==>_Send Func _end() Exit (0) EndFunc;==>_end
  21. Hi, Depend of application, you can have a look to : ControlClick ( "title", "text", controlID [, button] [, clicks]] ) ++ Aza
  22. So no solution :"> Thx for your help
  23. Hello, I'm in front a profesional web page witch is written only in Java. Unfortunatly, i can't give you a link because it's professional with password and so on. I need to read the forms and send it back some datas. It's seems that no _Ie management can read this page. Do you know a solution without "send" and "Tab" to play with Please let me know... Thx
  24. Thanks BigDod, that was not the answer i was hope but if it's not possible, i will try to do another way. Thanks you again... Aza
  25. I have make a script with some labels and edits, and i need to move verticaly the GUI witch is bigger than the screen. I post the code, can you help me plz. #include <GUIConstants.au3> #include <date.au3> Opt("WinTitleMatchMode",2) opt("TrayIconDebug",1) GUICreate("Rapport d'intervention N° "&"JE1000",800,1000,100,5,BitOR($WS_OVERLAPPEDWINDOW,$WS_VSCROLL)) GUICtrlCreateLabel("Client : ",10,13,60,20) $edit_client=GUICtrlCreateEdit("",80,10,102,20,$WS_CHILD) GUICtrlCreateLabel("Contact : ",200,13,60,20) $edit_contact=GUICtrlCreateEdit("",252,10,200,20,$WS_CHILD) GUICtrlCreateLabel("Numéro de commande : ",480,13,115,20) $edit_cde=GUICtrlCreateEdit("",605,10,125,20,$WS_CHILD) GUICtrlCreateLabel("Adresse : ",10,43,60,20) $edit_adresse=GUICtrlCreateEdit("",80,40,372,60,BitOR($ES_MULTILINE,$ES_WANTRETURN)) GUICtrlCreateLabel("Type de CN : ",10,123,70,20) $edit_cn=GUICtrlCreateEdit("",155,120,75,20,$WS_CHILD) GUICtrlCreateLabel("Numéro de CN : ",305,123,80,20) $edit_num_cn=GUICtrlCreateEdit("",425,120,125,20,$WS_CHILD) GUICtrlCreateLabel("Type et marque de machine : ",10,153,200,20) $edit_machine=GUICtrlCreateEdit("",155,150,125,20,$WS_CHILD) GUICtrlCreateLabel("Numéro de machine : ",305,153,200,20) $edit_num_machine=GUICtrlCreateEdit("",425,150,125,20,$WS_CHILD) GUICtrlCreateGroup("ALARME / PROBLEME : ",10,190,610,270) $edit_pb=GUICtrlCreateEdit("",20,210,588,240,BitOR($ES_MULTILINE,$ES_WANTRETURN)) GUICtrlCreateLabel("Informations bureau : ",10,473,200,20) $edit_infos_1=GUICtrlCreateEdit("",125,470,534,20,$WS_CHILD) $edit_infos_2=GUICtrlCreateEdit("",125,488,588,20,$WS_CHILD) GUICtrlCreateGroup("Group2 : ",10,530,610,270) $edit_pb2=GUICtrlCreateEdit("",20,560,588,240,BitOR($ES_MULTILINE,$ES_WANTRETURN)) GUISetState (@SW_SHOW) ; will display an empty dialog box ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend thx
×
×
  • Create New...