vojefardi.blog
Jumat, 21 Desember 2012
Kamis, 24 Mei 2012
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;
}
desa kinipan
Riam (Jeram) Jalayan
Great Mobile Contents! Click Here
desa kinipan
http://clicks.aweber.com/y/ct/?l=6B4Yc&m=3b4eKBXIgW6kYlO&b=ugz.g9URuuy2tASzHNdP5w
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)
%>
klik di bawah ini
http://upload.kapanlagi.com/c.php?f=thumb_201205172054063_sungai_jalayatn__kinipan__4fb502feec9e3.jpg <% Dim searchKeywords searchKeywords="
Selasa, 08 Mei 2012
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>
<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
- Buat objek seperti perisai (fill:333333ff) dan persegi, pilih 2 objek tersebut kemudian pilih panel path > difference (Crtl+-) hasilnya tampak seperti disamping kanan.
- Objek dari hasil no.1 tadi kita difference lagi dengan persegi lebih tipis lagi.
- Hasil objek no.2 kita gabung dengan kapal. Caranya pilih 2 objek tersebut kemudian pilih panel path>union.
- Terakhir kita potong dengan gambar setan menggunakan difference.
- 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
Langganan:
Postingan (Atom)