Berikut ini langkah untuk menjadikan Wifi Laptop sebagai Access Point untuk membagikan internet yang diakses melalui adapter jaringan kabel di lingkungan Windows 7 :
- Jalankan Command Prompt sebagai Administrator
- Copas perintah berikut ini ke Command Prompt : netsh wlan set hostednetwork mode=allow "ssid=Cahyana" "key=123456789" keyUsage=persistent
- Untuk menjalankan Access Point tersebut copas perintah berikut ini ke Command Prompt : netsh wlan start hostednetwork
- Buka Properties dari adapter jaringan kabel yang terhubung ke internet, lalu pilih tab Sharing lalu dan beri tanda cek pada Allow other network users to connect thought this computer's Internet connection, pilih Home networking connection nya nama dari adapter Micorosoft Virtual WiFi Miniport. Alamat IP nya akan diberikan oleh Windows, yakni 192.168.137.x
- Buka smartphone atau Laptop lain, lalu hubungkan ke SSID Cahyana dengan password 123456789.
- Untuk mematikan Access Point, copas perintah berikut ini ke Command Prompt : netsh wlan stop hostednetwork
Related Posts:
Mengubah wallpaper dan mematikan screensaver dengan memanipulasi registry
uses registry;
procedure TForm1.FormCreate(Sender: TObject) ;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
with reg do begin
try
if OpenKey('\Control Panel\desktop', False) then begin
//change wallpaper and tile it
reg.Wr… Read More- Menampilkan Informasi BIOS
function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
if (p^ = #0) and (p - q >= 8) t… Read More
- Nomor Serial BIOS
uses SHA1, Base64;
function GetHashedBiosInfo: string;
var
SHA1Context: TSHA1Context;
SHA1Digest: TSHA1Digest;
begin
// Get the BIOS data
SetString(Result, PChar(Ptr($F0000)), $10000);
// Hash the string
SHA1Init(SHA1Contex… Read More
- Checksum BIOS
function GetBiosCheckSum: string;
var
s: int64;
i: longword;
p: PChar;
begin
i := 0;
s := 0;
p := PChar($F0000);
repeat
inc(s, Int64(Ord(p^)) shl i);
if i < 64 then inc(i) else i := 0;
inc(p);
until p > PChar($FFFFF);
… Read More
- Nomor Serial BIOS
uses SHA1, Base64;
function GetHashedBiosInfo: string;
var
SHA1Context: TSHA1Context;
SHA1Digest: TSHA1Digest;
begin
// Get the BIOS data
SetString(Result, PChar(Ptr($F0000)), $10000);
// Hash the string
SHA1Init(SHA1Contex… Read More
0 comments :
Posting Komentar
Terima kasih atas kunjungan dan komentarnya