Advertisement
deseven

ip.release

Apr 16th, 2012
486
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #title = "ip.release"
  2.  
  3. If MessageBox_(0,"Будет выполнена команда ipconfig  /release" + Chr(13) + Chr(10) + "Данное действие освободит ваш айпи адрес для подключения другого компьютера. Хотите продолжить?",#title,#MB_YESNO|#MB_ICONQUESTION) = #IDYES
  4.   If RunProgram(GetEnvironmentVariable("WINDIR") + "\system32\ipconfig.exe","/release *","",#PB_Program_Wait|#PB_Program_Hide)
  5.     MessageBox_(0,"IP освобожден!",#title,#MB_OK|#MB_ICONINFORMATION)
  6.   Else
  7.     MessageBox_(0,"Не удалось выполнить ipconfig  /release",#title,#MB_OK|#MB_ICONERROR)
  8.   EndIf
  9. EndIf
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement