Jump to content

CasaCorupta

Members
  • Posts

    13
  • Joined

  • Last visited

Everything posted by CasaCorupta

  1. perfectly, this script changes my way of working drasticly.... TOP WORK!
  2. Hello World, I have one Question. With which command can I hide an ICON in the information bar? See attached files fopr further Informations... Thank you very much!
  3. Yes so it is ;-), but they aren´t network admins or domain admins you know! Thx i will try it... Have a nice day yout two!
  4. Sure we are using XP PRO, but the most users are local admins. Because this reason i want a passoword controll for an Exe, you know! no one knows?
  5. hi Folks, Thanks for spending your time to read my Thread! I have one question. Is there any possible option to secure an opened exe with a Password? I want that not everybody can shutdown a process without an password! Sorry for my bad english!
  6. very usefull to me too, thank you very much!
  7. ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ; SCRIPT ; LAYOUT GUI GUICreate("Reset Settings",310,150) Opt("GUICoordMode",2) $CAD = GUICtrlCreateMenu ("CAD") $CADNews = GUICtrlCreateMenuitem ("CADNews",$CAD) $CADContact = GUICtrlCreateMenuitem ("CADContact",$CAD) $CADIntranet = GUICtrlCreateMenuitem ("CADIntranet",$CAD) $Text = GuiCtrlCreateLabel($msg_ger & $msg_eng, 15, 10) $helpmenu = GUICtrlCreateMenu ("?") $infoitem = GUICtrlCreateMenuitem ("About",$helpmenu) $Button_1 = GUICtrlCreateButton ("Reset Settings",-250,5,100,20) $Button_2 = GUICtrlCreateButton ( "Cancel",0, -1) GUICtrlCreateLabel ($default_status,-258,8,306,16,BitOr($SS_SIMPLE,$SS_SUNKEN)) GUISetState () ; INHALT GUI While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Button_1 Msgbox(0,"About", $version & @CRLF & @CRLF & $scripter) Case $msg = $Button_2 Exit Case $msg = $infoitem Msgbox(0,"About", $version & @CRLF & @CRLF & $scripter) Case $msg = $CADIntranet $oIE = _IECreate ($CADIntranet_Link) _IELoadWait ($oIE) Case $msg = $CADNews $oIE = _IECreate ($CADNews_Link) _IELoadWait ($oIE) Case $msg = $CADContact $oIE = _IECreate ($CADContact_Link, 0, 0) _IELoadWait ($oIE) _IEQuit ($oIE) EndSelect Wend ; SCRIPT ENDE ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- How can i change the veriable $default_status in my script? i want to do it in case when i klick on Button 1... the status bar should change imediatly Thx for your help!
  8. Strange pictures ;-)!
  9. Hello, are you using SciTe? There it is a super Help File included! SCITE your commands are REGRead, REGDELETE, REGWRITE and so on Have Fun!
  10. thx i will try it...
  11. Hello First time I visit the Forum an asking for help. I wrote a script which makes huges Problems with the virtual memory. I am a starter at AUTO IT, can you tell me why my memory goes up and up. After a "little" while there comes the Error Message "allocating memory". Thanks for your help... ;---------------------------------------------------------------------------- ; Definition der Variablen #include <file.au3> #include <Array.au3> DIM $netbiosname_file $netbiosname_file = ("netbiosname_file.txt") DIM $netbiosuser_file $netbiosuser_file = ("netbiosuser_file.txt") DIM $user_file $user_file = ("user_file.txt") DIM $workdir $workdir = ("D:\") $c = 1 While $c ;------------------------------------------------------------------------------- ; erzeugen der NetBiosName File $CMD = ( "netstat -o > " & $netbiosname_file) RunWait(@ComSpec & " /c " & $CMD, $workdir, @SW_HIDE) ;------------------------------------------------------------------------------- ; selektieren des NetBiosName $count_name=_FileCountLines($netbiosname_file) $netbiosname_file_open = FileOpen($netbiosname_file, 0) For $i=1 To $count_name Step 1 $line = Filereadline($netbiosname_file_open, $i) If NOT StringInStr($line,"8100")=0 Then $array=StringSplit($line,".") $VAR1=($array[1]) $INVNR=StringRight ($VAR1, 10) ;------------------------------------------------------------------------------- ; erzeugen der NETBiosUser File $CMD = ( "nbtstat -a " & $INVNR & " >>" & $netbiosuser_file) RunWait(@ComSpec & " /c " & $CMD, $workdir, @SW_HIDE) ;------------------------------------------------------------------------------- EndIf Next FileClose($netbiosname_file_open) ;------------------------------------------------------------------------------- ; selektieren des NetBiosUser $netbiosuser_file_open = FileOpen($netbiosuser_file, 0) For $i=1 To 100 Step 1;Dokument wird nur mit 17 Zeilen angegeben, stimmt aber nicht $line_user = Filereadline($netbiosuser_file_open, $i) If NOT StringInStr($line_user,"<03>")=0 Then $array=StringSplit($line_user,"<") $VAR2=($array[1]) ;------------------------------------------------------------------------------- ; erzeugen der User File $user_file_open = FileOpen($user_file, 1) Filewriteline($user_file_open, $VAR2) FileClose($user_file_open) ;------------------------------------------------------------------------------- EndIf Next FileClose($netbiosuser_file_open) ;------------------------------------------------------------------------------- ; löschen der Dateien Sleep(2000) FileDelete($netbiosname_file) Sleep(2000) FileDelete($netbiosuser_file) Sleep(60000) FileDelete($user_file) $c = $c +1 WEnd
×
×
  • Create New...