Senin, 21 Mei 2012

geng 12

#!C:/Perl/bin/perl.exe my $searchKeywords = ""; use LWP::UserAgent; use Time::HiRes qw(gettimeofday); use URI::Escape; sub pesan_com_append_screen_res { my $screen_res = $ENV{"HTTP_UA_PIXELS"}; if ($screen_res == "") { $screen_res = $ENV{"HTTP_X_UP_DEVCAP_SCREENPIXELS"}; } if ($screen_res == "") { $screen_res = $ENV{"HTTP_X_JPHONE_DISPLAY"}; } my @res_array = split("[x,*]", $screen_res); if (@res_array == 2) { return "&u_w=" . $res_array[0] . "&u_h=" . $res_array[1]; } } sub pesan_com_append_muid { my $muid = $ENV{"HTTP_X_DCMGUID"}; if ($muid) { return "&muid=" . $muid; } my $muid = $ENV{"HTTP_X_UP_SUBNO"}; if ($muid) { return "&muid=" . $muid; } my $muid = $ENV{"HTTP_X_JPHONE_UID"}; if ($muid) { return "&muid=" . $muid; } my $muid = $ENV{"HTTP_X_EM_UID"}; if ($muid) { return "&muid=" . $muid; } } sub pesan_com_append_via_and_accept { if ($_[0] eq "") { my $via_and_accept; my $via = uri_escape($ENV{"HTTP_VIA"}); if ($via) { $via_and_accept = "&via=" . $via; } my $accept = uri_escape($ENV{"HTTP_ACCEPT"}); if ($accept) { $via_and_accept = $via_and_accept . "&accept=" . $accept; } if ($via_and_accept) { return $via_and_accept; } } } my $pesan_com_scheme = ($ENV{"HTTPS"} eq "on") ? "https://" : "http://"; my $pesan_com_user_agent = uri_escape($ENV{"HTTP_USER_AGENT"}); my $pesan_com_ad_url = "http://www.pesan.com/wap-ads.php?" . "&pid=2436". "&id=4451". "&search=".uri_escape($searchKeywords). "&ip=" . uri_escape($ENV{"REMOTE_ADDR"}) . "&ref=" . uri_escape($ENV{"HTTP_REFERER"}) . "&url=" . uri_escape($tplvalues[1]['IO_ADSERVER']_scheme . $ENV{"HTTP_HOST"} . $ENV{"REQUEST_URI"}) . "&useragent=" . $pesan_com_user_agent . pesan_com_append_screen_res() . pesan_com_append_muid() . pesan_com_append_via_and_accept($pesan_com_user_agent); my $pesan_com_ua = LWP::UserAgent->new; my $pesan_com_ad_output = $pesan_com_ua->get($pesan_com_ad_url); if ($pesan_com_ad_output->is_success) { print "Content-type: text/html\n\n"; print $pesan_com_ad_output->content; }

geng 12

geng 12

desa kinipan


Riam (Jeram) Jalayan

                                                            Sungai Jalayan

Great Mobile Contents! Click Here


desa kinipan

http://clicks.aweber.com/y/ct/?l=6B4Yc&m=3b4eKBXIgW6kYlO&b=ugz.g9URuuy2tASzHNdP5w 

geng 12



eben geng 12

Kamis, 17 Mei 2012

kinipan

photo gue di jembatan jalayan kinipan
klik di bawah ini
http://upload.kapanlagi.com/c.php?f=thumb_201205172054063_sungai_jalayatn__kinipan__4fb502feec9e3.jpg <% Dim searchKeywords searchKeywords="" Function pesan_comScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_JPHONE_DISPLAY") delimiter = "*" End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then pesan_comScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function pesan_comMuid() Dim muid muid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_UP_SUBNO") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_JPHONE_UID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_EM_UID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If End Function Function pesan_comViaAndAccept(pesan_comUserAgent) If Len(pesan_comUserAgent) = 0 Then Dim via via = Server.URLEncode(Request.ServerVariables("HTTP_VIA")) If Not IsEmpty(via) Then pesan_comViaAndAccept = "&via=" & via End If Dim accept accept = Server.URLEncode(Request.ServerVariables("HTTP_ACCEPT")) If Not IsEmpty(accept) Then pesan_comViaAndAccept = pesan_comViaAndAccept & "&accept=" & accept End If End If End Function Dim pesan_comScheme,pesan_comUserAgent pesan_comScheme = "http://" pesan_comUserAgent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then pesan_comScheme = "https://" Dim pesan_comUrl, pesan_comOutput pesan_comUrl = "http://www.pesan.com/wap-ads.php?" &_ "&pid=2436" &_ "&id=4451" &_ "&search=" & Server.URLEncode(searchKeywords) &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & Server.URLEncode(pesan_comScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_ "&useragent=" & pesan_comUserAgent &_ pesan_comScreenRes() &_ pesan_comMuid() &_ pesan_comViaAndAccept(pesan_comUserAgent) Set pesan_comOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") pesan_comOutput.Open "GET", pesan_comUrl, false pesan_comOutput.Send Response.Write(pesan_comOutput.responseText) %>

Selasa, 08 Mei 2012

anak geng 12

anak geng12katanya si anak-anak geng 12

gang 12 jabuk

<html>
<body>
<title> anak geng 12</tile>
</body>
<img src="eeeeeeee.jpg"><br>
<img src="¤ zbx ¤ 1520027.jpg"><br>
<img src="¤ zbx ¤ 1520022.jpg"><br>
</html>

Jumat, 04 Mei 2012

manchester united///

manchester united///

Tutorial membuat logo Manchester United






Rate This
Langkah pertama
buat lambang tengah yang berisi
kapal, setan juga segi lima berbentuk perisai
buat gambar setan dan kapalnya menggunakan Draw Bezier Curve.
Langkah Kedua
  1. Buat objek seperti perisai (fill:333333ff) dan persegi, pilih 2 objek tersebut kemudian pilih panel path > difference (Crtl+-) hasilnya tampak seperti disamping kanan.
  2. Objek dari hasil no.1 tadi kita difference lagi dengan persegi lebih tipis lagi.
  3. Hasil objek no.2 kita gabung dengan kapal. Caranya pilih 2 objek tersebut kemudian pilih panel path>union.
  4. Terakhir kita potong dengan gambar setan menggunakan difference.
  5. Kita namakan maskot MU.
Nb: warna kuning hanya untuk pembanding saja
Langkah Ketiga
Buat dulu lengkungan atas dari lambang Man. United menggunakan Draw Bezier Curve (stroke:333333ff), duplikat dulu menjadi 2 dahulu. Hasil Maskot dari Langkah 2 kita potong dengan lengkungan atas. Pastikan Lengkungan ada diatas dari objek langkah 2.
Langkah Keempat
Pilih panel text ketik MANCHESTER (fill:333333ff), saya menggunakan font ori1Uni. Pilih panel Tweak Objects > Move Objects in any Direction. Lalu perbaiki lagi secara manual perhuruf jika lengkungan kurang sempurna.
Langkah Kelima
Ambil kembali hasil langkah ketiga yang telah di duplikat tadi, buat juga lengkungan untuk dibawah maskot. Susun lengkungan atas dan bawah juga maskotnya. Buat juga tulisan UNITED dengan cara seperti membuat tulisan MANCHESTER tadi. Susun hingga hasil seperti gambar paling kanan.
Langkah Keenam
Buat kerangka bola menggunakan Draw Bezier Curve. Kemudian kasih warna (fill:333333ff) menggunakan panel paint bucket. Jika sudah, pisahkan hasil warnaan dengan kerangkanya.
Langkah Ketujuh
Buat semua hiasan tersebut menggunakan Draw Bezier Curve (fill:333333ff). Susun semua objek yang sudah jadi tampak seperti gambar di paling kanan. Jika bolanya masih 1, duplikat objeknya (Crtl+D) kemudian pilih panel flip selected objects horizontally.
Langkah Terakhir
manchester united///Untuk sentuhan akhir kita gunakan sedikit efek. Pilih panel Filters>Bevel>Button. Selesailah Lambang Manchester United. Selamat Mencoba
nb: fill yang digunakan 333333ff
stroke yang digunakan 333333ff
warna kuning pada gambar diatas hanya untuk pembeda warna saja.
silahkan download disini
Bottom of Form