Untitled

#include <GUIConstantsEx.au3> ;thu vien cua GUI

#include <Process.au3>

#NoTrayIcon

$size = 10;

$font = "Arial"

$attribute = 3; [optional] To define italic:2 underlined:4 strike:8 char format (add together the values of all the styles required, 2+4 = italic and underlined).

$gui = GUICreate("Change DNS", 400, 400) ;Tao GUI

$btnGoogle = GUICtrlCreateButton("Google DNS", 20, 20, 70, 25) ;tao nut button

$btnDefault = GUICtrlCreateButton("DNS Default", 20, 55, 70, 25) ;tao nut button

$btnComodoDNS = GUICtrlCreateButton("Comdo DNS", 20, 90, 70, 25) ;tao nut button

$btnAdvantage = GUICtrlCreateButton("Advantage", 20, 125, 70, 25) ;tao nut button

$btnOpenDNS = GUICtrlCreateButton("Open DNS", 20, 160, 70, 25) ;tao nut button

$btnUltraDNS = GUICtrlCreateButton("Ultra DNS", 20, 195, 70, 25) ;tao nut button

$btnlevel3 = GUICtrlCreateButton("Level 3", 20, 230, 70, 25)

$btnOpenNIC = GUICtrlCreateButton("Open NIC", 20, 265, 70, 25)

$btnDNS8 = GUICtrlCreateButton("DNS 8", 20, 300, 70, 25)

$btnDNS9 = GUICtrlCreateButton("DNS 9", 155, 20, 70, 25)

$btnDNS10 = GUICtrlCreateButton("DNS 10", 155, 55, 70, 25)

$btnDNS11 = GUICtrlCreateButton("DNS 11", 155, 90, 70, 25)

$btnDNS12 = GUICtrlCreateButton("DNS 12", 155, 125, 70, 25)

$btnDNS13 = GUICtrlCreateButton("DNS 13", 155, 160, 70, 25)

$btnDNS14 = GUICtrlCreateButton("DNS 14", 155, 195, 70, 25)

$btnDNS15 = GUICtrlCreateButton("DNS 15", 155, 230, 70, 25)

$btnDNS16 = GUICtrlCreateButton("DNS 16", 155, 265, 70, 25)

GUICtrlCreateLabel("zolamua.com - nguyenthienanit@gmail.com - 01678.115.292",20,0,400,20);

GUICtrlSetFont(-1, $size, 400, $attribute, $font) ; dat font va size chu

GUISetState() ;hien thi giao dien

while 1 ; vong lap xu ly thong diep

$msg = GUIGetMsg() ; nhan thong diep

Switch $msg ; xet thong diep

Case $btnGoogle

$DNS1 = "8.8.8.8"

$DNS2 = "8.8.4.4"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDefault

$DNS1 = "127.0.0.1"

$DNS2 = "127.0.0.1"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnComodoDNS

$DNS1 = "156.154.70.22"

$DNS2 = "156.154.71.22"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnAdvantage

$DNS1 = "156.154.70.1"

$DNS2 = "156.154.71.1"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnOpenDNS

$DNS1 = "208.67.222.222"

$DNS2 = "208.67.220.220"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnUltraDNS

$DNS1 = "204.69.234.1"

$DNS2 = "204.74.101.1"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnlevel3

$DNS1 = "4.2.2.3"

$DNS2 = "4.2.2.4"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnOpenNIC

$DNS1 = "58.6.115.42"

$DNS2 = "58.6.115.43"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS8

$DNS1 = "198.77.116.225"

$DNS2 = "198.77.116.227"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS9

$DNS1 = "209.244.0.3"

$DNS2 = "209.244.0.4"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS10

$DNS1 = "141.211.125.17"

$DNS2 = "141.211.144.17"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS11

$DNS1 = "129.250.35.250"

$DNS2 = "129.250.35.251"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS12

$DNS1 = "198.77.116.221"

$DNS2 = "198.77.116.223"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS13

$DNS1 = "66.244.95.20"

$DNS2 = "66.244.95.22"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS14

$DNS1 = "199.45.32.37"

$DNS2 = "199.45.32.38"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS15

$DNS1 = "151.202.0.84"

$DNS2 = "151.202.0.85"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $btnDNS16

$DNS1 = "205.171.2.65"

$DNS2 = "205.171.3.65"

RunWait('netsh inter ip set dns "Local Area Connection" static ' & $DNS1)

RunWait('netsh inter ip add dns "Local Area Connection" ' & $DNS2 & " index=2")

Case $GUI_EVENT_CLOSE ; xu ly su kien dong cua so

ExitLoop ; thoat khoi vong lap

EndSwitch

WEnd