Atomica
Новичок
- Сообщения
- 5
- Репутация
- 0
Здравствуйте. Есть проект для стримеров, нужна небольшая помощь . Как сделать рандомный выбор из списка зрителей с ютуба . Не-много проработанный интерфейс уже есть. Нужно что бы по нажатию на кнопку 500 либо 250 из списка смотрящих выбирался человек, и вставлялся его ник в MSGbOX.
Код:
; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WinAPI.au3>
Global $wv
Global $Form1 = GUICreate("Чат стрима и розыгрыши", 600, 258, -1, -1, -1, $WS_EX_LAYERED) ; Создание окна
Global $Label1 = GUICtrlCreateLabel("Открыть стрим", 5, 220, 100, 25, BitOR($WS_BORDER, $SS_CENTER, $SS_CENTERIMAGE)) ;Кнопка открыть стрим.
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetBkColor(0xF0F0F0, $Form1)
GUISetState(@SW_SHOW, $Form1)
Global $linkchat = GUICtrlCreateInput('', 5, 5, 250, 25) ; строка ввода
__GUICtrlEdit_SetCueBanner(-1, "Ссылка на чат")
GUICtrlSetTip(-1, 'Ссылка на чат')
Global $linkwws = GUICtrlCreateInput("", 5, 35, 250, 25) ; строка ввода
__GUICtrlEdit_SetCueBanner(-1, "Ссылка на зрителей")
GUICtrlSetTip(-1, 'Ссылка на зрителей')
Global $priz250 = GUICtrlCreateButton("250", 400, 208, 40, 15, BitOR)
Global $priz500 = GUICtrlCreateButton('500', 450, 208, 40, 15)
Global $chatwin = GUICtrlCreateLabel('Открыть чат', 110, 220, 100, 25, BitOR($WS_BORDER, $SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetBkColor(-1, 0xFFFFFF)
;----------------------------------------------------------Второе окно-Окно чата------------------------------------------------------------------------------------------------------—
Local $wgp = WinGetPos($Form1)
Global $winchat = GUICreate("Чат стрима(окно можно растянуть за стороны)", 400, 400, $wgp[0] + $wgp[2] + 5, $wgp[1], $WS_OVERLAPPEDWINDOW, $WS_EX_MDICHILD, $Form1) ; Создание окна
Local $oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 0, 400, 400)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
GUISetState(@SW_HIDE, $winchat)
WinActivate($Form1)
_WinAPI_SetLayeredWindowAttributes($Form1, 0xF0F0F0, 255)
Local $msg
While 1
$msg = GUIGetMsg(1)
Switch $msg[0]
Case $GUI_EVENT_CLOSE
If $msg[1] = $Form1 Then
Exit
ElseIf $msg[1] = $winchat Then
_winchat()
EndIf
Case $Label1
ShellExecute('chrome.exe', 'https youtube com/channel/UCK0CbMLkAMy3yfQKPqhP..')
Case $priz250
_MSG()
Case $priz500
_500()
Case $chatwin
_winchat()
EndSwitch
WEnd
Func _MSG()
MsgBox(64, '', 'Поздравляю "тут будет ник с ютуба", ты выйграл 250 ничего)')
Return ConsoleWrite('функция выполнена' & @CRLF)
EndFunc ;==>_MSG
Func _500()
MsgBox(64, '', 'Поздравляю "nick name", ты выйграл 500 ничего)')
Return ConsoleWrite('Функция выполнена' & @CRLF)
EndFunc ;==>_500
Func _winchat()
If $wv Then
_IEAction($oIE, "stop")
GUISetState(@SW_HIDE, $winchat)
GUICtrlSetData($chatwin, 'Открыть чат')
$wv = 0
Else
Local $gethttp = StringStripWS(GUICtrlRead($linkchat), 8)
If $gethttp Then
Local $wgp = WinGetPos($Form1)
WinMove($winchat, '', $wgp[0] + $wgp[2] + 5, $wgp[1])
GUISetState(@SW_SHOW, $winchat)
GUICtrlSetData($chatwin, 'Закрыть чат')
_IENavigate($oIE, $gethttp)
$wv = 1
EndIf
EndIf
EndFunc ;==>_winchat
Func __GUICtrlEdit_SetCueBanner($i_ID, $s_Text)
Local Const $__EM_SETCUEBANNER = 0x1501
Return GUICtrlSendMsg($i_ID, $__EM_SETCUEBANNER, 0, String($s_Text))
EndFunc ;==>__GUICtrlEdit_SetCueBanner