Что нового

Скрипт запуска сервера, можно ли сделать по уму?

Spartan

Новичок
Сообщения
7
Репутация
0
Здравствуйте! Решил открыть локальному сайту доступ в интернет, а IP у меня динамический и каждый раз после перезагрузки меняется. Скажите пожалуйста, можно ли как-то более по умному сделать все эти действия? Заранее спасибо.

Код:
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Sleep(1000)
Send("{LWINDOWN}m{LWINUP}") ;свернуть все окна
Sleep(1000)
Run("E:\Program Files\Safari\Safari.exe") ;запускаем Сафари
WinWait("Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP","")
If Not WinActive("Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP","") Then WinActivate("Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP","")
WinWaitActive("Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP","")
Sleep(1000)
MouseMove(350,464) ; в Сафари по умолчанию страница определения IP
MouseDown("left")
MouseMove(680,464)
MouseUp("left")     ;выделяем IP
Sleep(500)
Send("{CTRLDOWN}c{CTRLUP}")  ;копируем IP
Sleep(500)
Send("{ALTDOWN}{F4}{ALTUP}") ;закрываем Сафари
WinWait("Program Manager","")
If Not WinActive("Program Manager","") Then WinActivate("Program Manager","")
WinWaitActive("Program Manager","")
MouseClick("left",40,25,2) ;запускаем ярлык папки сервера на рабочем столе
WinWait("D:\Server\home","")
If Not WinActive("D:\Server\home","") Then WinActivate("D:\Server\home","")
WinWaitActive("D:\Server\home","") ; 
Sleep(500)
MouseMove(310,176) ;переводим курсор точно над папкой со скриптом сайта и открываем меню
MouseDown("right")
MouseUp("right")
Sleep(500)
Send("{UP}") ;выбираем пункт Переименовать
Sleep(500)
Send("{UP}")
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
Send("{CTRLDOWN}v{CTRLUP}") ;вставляем IP как имя папки
Sleep(1000)
Send("{ENTER}") ;переименовываем папку именем IP
Sleep(1000)
Send("{ALTDOWN}{F4}{ALTUP}") ;закрываем папку
Sleep(500)
Run("D:\Server\denwer\Run.exe") ;запускаем Денвер
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1 574
Репутация
335
Spartan [?]
Решил открыть локальному сайту доступ в интернет, а IP у меня динамический и каждый раз после перезагрузки меняется. Скажите пожалуйста, можно ли как-то более по умному сделать все эти действия? Заранее спасибо.
Зря. Вы про опасность слышали? Тем более советую регестрироваться на DynDNS.com или нечто в этом роде. Тогда ваш динамический IP примет вид мойсервер.dns.com.
 
Автор
S

Spartan

Новичок
Сообщения
7
Репутация
0
Я там уже зарегистрировался и принял все возможные меры по безопасности, в этом я понимаю гораздо больше чем к сожалению в написании скриптов на autoit :( Помогите если возможно, а то уж больно часто сбоит, то браузер откроется не на весь экран то папка откроется в другом месте...
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
218
для IP
Код:
#include <Inet.au3>
$PublicIP = _GetIP()
MsgBox(0, "IP Address", "Your IP Address is: " & $PublicIP)


для переименования папки смотрите функцию DirMove().
 
Автор
S

Spartan

Новичок
Сообщения
7
Репутация
0
Спасибо! С переименованием папки все понял, вот если бы ip при этом в буфер копировался то было бы полное счастье :smile:
 
Верх