Что нового

Скрипт для заполнения формы в зависимости от имени ПК

redmanworld

Новичок
Сообщения
2
Репутация
0
Здравствуйте, дорогие форумчане. Прошу вас о помощи с дополнением скрипта. У меня есть группа ПК, где у каждого своё название. Хотелось бы дополнить свой скрипт, вставив туда функцию проверки имени ПК и использования соответствующих данных в зависимости от его имени. Вот как выглядит скрипт на данный момент.

Код:
Run ( "D:\Launchers\Battle.net\Battle.net Launcher.exe" )
Sleep(5000)
WinActivate("Вход в Blizzard Battle.net","")
WinWaitActive("Вход в Blizzard Battle.net","")
Sleep(5000)
Send("{SHIFTDOWN}{TAB}{SHIFTUP}почтаблиззард{TAB}парольблиззард{ENTER}")
Sleep(10000)
If WinExists("Вход в Blizzard Battle.net","") Then
   ProcessClose ( "Battle.net.exe" )
   Sleep(5000)
   Run ( "D:\Launchers\Battle.net\Battle.net Launcher.exe" )
   Sleep(5000)
   WinActivate("Вход в Blizzard Battle.net","")
   WinWaitActive("Вход в Blizzard Battle.net","")
   Sleep(5000)
   Send("{SHIFTDOWN}{TAB}{SHIFTUP}почтаблиззард{TAB}парольблиззард{ENTER}")
   Sleep(10000)
EndIf
Sleep(10000)
Run ( "D:\Launchers\Origin\Origin.exe" )
Sleep(10000)
WinActivate("Origin","")
WinWaitActive("Origin","")
Sleep(1000)
MouseClick("left",931,443,1)
Send("{CTRLDOWN}a{CTRLUP}почтаориджин{TAB}парольориджин{ENTER}")
Sleep(10000)
WinSetState ('Origin', '', @SW_HIDE)
WinSetState ('Blizzard Battle.net', '', @SW_HIDE)
Sleep(5000)



Для лучшего понимания опишу процесс
Скрипт смотрит имя ПК, если у него название Б1, то он использует почтаориджин, парольориджин и почтаблиззард и парольблиззард, которые будут прописаны для Б1
Если у него название Б23, то будет использовать значения для Б23.
 

InnI

AutoIT Гуру
Сообщения
4,541
Репутация
1,244
Как вариант
Код:
Global $MailOrig, $PassOrig, $MailBliz, $PassBliz

Switch @ComputerName
  Case "Б1"
    $MailOrig = "почтаориджин"
    $PassOrig = "парольориджин"
    $MailBliz = "почтаблиззард"
    $PassBliz = "парольблиззард"
  Case "Б23"
    $MailOrig = "почтаориджинБ23"
    $PassOrig = "парольориджинБ23"
    $MailBliz = "почтаблиззардБ23"
    $PassBliz = "парольблиззардБ23"
EndSwitch

Send("{SHIFTDOWN}{TAB}{SHIFTUP}" & $MailBliz & "{TAB}" & $PassBliz & "{ENTER}")
Send("{CTRLDOWN}a{CTRLUP}" & $MailOrig & "{TAB}" & $PassOrig & "{ENTER}")
 
Автор
R

redmanworld

Новичок
Сообщения
2
Репутация
0
Как вариант
Код:
Global $MailOrig, $PassOrig, $MailBliz, $PassBliz

Switch @ComputerName
  Case "Б1"
    $MailOrig = "почтаориджин"
    $PassOrig = "парольориджин"
    $MailBliz = "почтаблиззард"
    $PassBliz = "парольблиззард"
  Case "Б23"
    $MailOrig = "почтаориджинБ23"
    $PassOrig = "парольориджинБ23"
    $MailBliz = "почтаблиззардБ23"
    $PassBliz = "парольблиззардБ23"
EndSwitch

Send("{SHIFTDOWN}{TAB}{SHIFTUP}" & $MailBliz & "{TAB}" & $PassBliz & "{ENTER}")
Send("{CTRLDOWN}a{CTRLUP}" & $MailOrig & "{TAB}" & $PassOrig & "{ENTER}")
И соответственно, для кажждого нового ПК нужно добавлять вкладку CASE в Switch, так ведь?
 

InnI

AutoIT Гуру
Сообщения
4,541
Репутация
1,244
для кажждого нового ПК нужно добавлять вкладку CASE в Switch
Если у вас для каждого ПК собственные настройки, то да. Если на некоторых одинаковые, то можно перечислить
Код:
Switch @ComputerName
  Case "Б1", "Б2", "Б3"
    $MailOrig = "почтаориджин"
...
 
Верх