По форуму по лазил так и не нашел ответа :'(
В Combo листе нужно на против каждого домена выставить название страны, но при выборе домена
чтобы записывалось только домен а название игнорировались.
Возможно ли такое?
Вот код:
Кто что может подсказать.
Спасибо
В Combo листе нужно на против каждого домена выставить название страны, но при выборе домена
чтобы записывалось только домен а название игнорировались.
Возможно ли такое?
Вот код:
Код:
#include-once
#include <ComboConstants.au3>
#include <Array.au3>
#include <IE.au3>
#include <File.au3>
#include <Inet.au3>
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <GUIComboBoxEx.au3>
#include <StaticConstants.au3>
#include <ListboxConstants.au3>
#include <GuiListView.au3>
$d = "au|at|az|al|dz|ao|ad|ag|ar|am|af|bs|bd|bb|bh|by|bz|be|bj|bg|bo|ba|bw|br|bn|bf|bi|bt|vu|va|uk|hu|ve|tp|vn|ga|ht|gy|gm|gh|gt|gn|gw|de|hn|gd|gr|ge|dk|dj|dm|do|eg|zm|zw|il|in|id|jo|iq|ir|ie|is|es|it|ye|cv|kz|kh|cm|ca|qa|ke|cy|kg|ki|cn|co|km|cd|cg|cr|ci|cu|kw|la|lv|ls|lr|lb|ly|lt|li|lu|mu|mr|mg|mk|mw|my|ml|mv|mt|ma|mh|mx|mz|md|mc|mn|mm|na|nr|np|ne|ng|nl|ni|nz|no|ae|om|pk|pw|pa|pg|py|pe|pl|pt|ru|rw|ro|sv|ws|sm|st|sa|sz|kp|sc|sn|vc|kn|lc|cs|sg|sy|sk|si|us|sb|so|sd|sr|sl|tj|th|tz|tg|to|tt|tv|tn|tm|tr|ug|uz|ua|uy|fm|fj|ph|fi|fr|ht|cf|td|yu|cz|cl|ch|se|lk|ec|gq|er|ee|et|kr|za|jm|jp|co.za|gov.com|gov|рф"
$d1 = "page.php?|views.php?|item.php?|main.php?|menu.php?"
$kol = "100|50"
Dim $ww, $we, $wew, $hFile, $sFile, $wwww
FileDelete(@ScriptDir & "\dork.txt")
$auto = GUICreate("Dork", 800, 800, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_TABSTOP))
;GUISetBkColor(0x808080)
$font = "Comic Sans MS"
GUICtrlCreateGroup ("",2,1,798,100,0,$WS_EX_DLGMODALFRAME)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Количество:", 16, 10, 100)
GUICtrlSetFont(-1, 12, 180, 4, $font)
$Input1 = GUICtrlCreateCombo("1000", 30, 45, 60, 60, BitOR($CBS_DISABLENOSCROLL,$CBS_DROPDOWN,$CBS_LOWERCASE,$CBS_NOINTEGRALHEIGHT,$CBS_DROPDOWNLIST))
GUICtrlSetData(-1, $kol, "")
GUICtrlSetFont(-1, 11, 180, 3)
GUICtrlCreateLabel("Домены:", 200, 10, 180)
GUICtrlSetFont(-1, 12, 180, 4, $font)
$Input3 = GUICtrlCreateCombo("", 200, 45, 80, 500, BitOR($CBS_DISABLENOSCROLL,$CBS_DROPDOWN,$CBS_LOWERCASE,$CBS_NOINTEGRALHEIGHT))
GUICtrlSetData(-1, $d, "")
;$Input3 = GUICtrlCreateInput("", 16, 90, 50, 21)
GUICtrlSetFont(-1, 11, 180, 3)
GUICtrlCreateLabel("Дорки:", 350, 10, 180)
GUICtrlSetFont(-1, 12, 180, 4, $font)
$Input2 = GUICtrlCreateCombo("index.php?", 350, 45, 150, 500, BitOR($CBS_DISABLENOSCROLL,$CBS_DROPDOWN,$CBS_LOWERCASE,$CBS_NOINTEGRALHEIGHT))
GUICtrlSetData($Input2, $d1, "")
;$Input2 = GUICtrlCreateInput("index.php?", 16, 150, 145, 21)
GUICtrlSetFont(-1, 11, 180, 3)
GUICtrlCreateLabel("Всего:", 570, 10, 180)
GUICtrlSetFont(-1, 12, 180, 4, $font)
$start = GUICtrlCreateButton("Пуск", 700, 38, 90, 25)
GUICtrlSetFont(-1, 11, 180, 4, $font)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$copy = GUICtrlCreateButton("Скопировать", 700, 765, 90, 25)
GUICtrlSetFont(-1, 11, 180, 4, $font)
$clear = GUICtrlCreateButton("Очистить", 700, 110, 90, 25)
GUICtrlSetFont(-1, 11, 180, 4, $font)
$proxy = GUICtrlCreateCombo("Прокси", 16, 110, 110, 80, BitOR($CBS_DROPDOWNLIST,$CBS_SIMPLE),$CBES_EX_NOSIZELIMIT)
GUICtrlSetData(-1, "Включить|Выключить")
GUICtrlSetFont(-1, 11, 180, 4, $font)
GUICtrlSetFont(-1, 11, 180, 4, $font)
$dorki=GUICtrlCreateList("", 2, 150, 796, 600, BitAND(0x00A00003,BitNOT(0x00000002)))
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $start
$wew = GUICtrlRead ($Input1)
if $wew > 10 Then Local $we = ($wew / 10)
$we = 10
;_SaveTextData()
EndSwitch
WEnd
Кто что может подсказать.
Спасибо