tag:blogger.com,1999:blog-37296026172622526452024-03-12T16:38:31.543-07:00Tips Jaringan SederhanaTips Dan Trik Jaringan Internet SederhanaAnonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.comBlogger11125tag:blogger.com,1999:blog-3729602617262252645.post-89739939651041982972012-09-26T21:12:00.002-07:002012-09-26T21:12:42.609-07:00Tips Setting Mikrotik Untuk Warnet Game Online Tips kali ini, kita menggunakan ISP Telkom Speedy...<br />
<div class="body" dir="ltr">
<code><b>Topologi Jaringan :</b> </code><br />
<code>Modem DSL --> ether2 Mikrotik --> Router Mikrotik --> Ether1 Mikrotik --> Switch --> PC Terminal</code></div>
<br />
<div style="text-align: justify;">
<b>Langkah 1 </b><u><b><br /></b></u></div>
<div style="text-align: justify;">
Install/Siapkan mikrotik OS</div>
<br />
<div style="text-align: justify;">
<b>Langkah 2</b></div>
<div style="text-align: justify;">
Set Ip Address Tiap interface</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip address add address=10.10.10.1/24 interface=ether1<br />
ip address add address=10.10.11.2/24 interface=ether2</code></div>
</div>
<a name='more'></a><br />
<div style="text-align: justify;">
<b>Langkah 3</b></div>
<div style="text-align: justify;">
Setting DNS Resolver Mikrotik dan PC</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip dns static add name=sobatkucyber.com address=10.10.10.1<br />
ip dns set primary-dns=10.10.11.2 secondary-dns=202.134.1.1 allow-remote-requests=yes</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 4</b></div>
<div style="text-align: justify;">
Masqurade Jaringan LAN</div>
<div style="text-align: left;">
</div>
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip firewall nat add chain=srcnat src-address=10.10.10.0/24 action=masquerade</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 5</b></div>
<div style="text-align: justify;">
Memberikan Nama Router</div>
<div style="text-align: left;">
</div>
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>system identity set name=sobatku</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 6</b></div>
<div style="text-align: justify;">
Set jam Otomatis</div>
<div style="text-align: left;">
</div>
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>system ntp client set primary-ntp=0.pool.ntp.org secondary-ntp=3.pool.ntp.org enabled=yes</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 7</b></div>
<div style="text-align: justify;">
Menentukan Default Routing</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip route gateway=10.10.11.1</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 8</b></div>
<div style="text-align: justify;">
Membuat Mark Connection yang nantinya di pakai untuk memilah Paket</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip firewall mangle add chain=forward src-address=10.10.10.100 action=mark-connection new-connection-mark=billing<br />
ip firewall mangle add chain=forward src-address=10.10.10.101 action=mark-connection new-connection-mark=pc1<br />
ip firewall mangle add chain=forward src-address=10.10.10.102 action=mark-connection new-connection-mark=pc2<br />
ip firewall mangle add chain=forward src-address=10.10.10.103 action=mark-connection new-connection-mark=pc3<br />
ip firewall mangle add chain=forward src-address=10.10.10.104 action=mark-connection new-connection-mark=pc4<br />
ip firewall mangle add chain=forward src-address=10.10.10.105 action=mark-connection new-connection-mark=pc5<br />
ip firewall mangle add chain=forward src-address=10.10.10.106 action=mark-connection new-connection-mark=pc6<br />
ip firewall mangle add chain=forward src-address=10.10.10.107 action=mark-connection new-connection-mark=pc7<br />
ip firewall mangle add chain=forward src-address=10.10.10.108 action=mark-connection new-connection-mark=pc8<br />
ip firewall mangle add chain=forward src-address=10.10.10.109 action=mark-connection new-connection-mark=pc9<br />
ip firewall mangle add chain=forward src-address=10.10.10.110 action=mark-connection new-connection-mark=pc10</code></div>
</div>
<br />
<div style="text-align: justify;">
<b> Langkah 9 </b><u><b><br /></b></u></div>
<div style="text-align: justify;">
Membuat mark packet untuk Queue, yang didapat dari mark connection</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>ip firewall mangle add chain=forward connection-mark=billing action=mark-packet new-packet-mark=billing<br />
ip firewall mangle add chain=forward connection-mark=pc1 action=mark-packet new-packet-mark=pc1<br />
ip firewall mangle add chain=forward connection-mark=pc2 action=mark-packet new-packet-mark=pc2<br />
ip firewall mangle add chain=forward connection-mark=pc3 action=mark-packet new-packet-mark=pc3<br />
ip firewall mangle add chain=forward connection-mark=pc4 action=mark-packet new-packet-mark=pc4<br />
ip firewall mangle add chain=forward connection-mark=pc5 action=mark-packet new-packet-mark=pc5<br />
ip firewall mangle add chain=forward connection-mark=pc6 action=mark-packet new-packet-mark=pc6<br />
ip firewall mangle add chain=forward connection-mark=pc7 action=mark-packet new-packet-mark=pc7<br />
ip firewall mangle add chain=forward connection-mark=pc8 action=mark-packet new-packet-mark=pc8<br />
ip firewall mangle add chain=forward connection-mark=pc9 action=mark-packet new-packet-mark=pc9<br />
ip firewall mangle add chain=forward connection-mark=pc10 action=mark-packet new-packet-mark=pc10</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 10</b></div>
<div style="text-align: justify;">
Membuat Parent tertinggi Queue</div>
<div style="text-align: left;">
</div>
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>queue tree add name=sobatku parent=ether2 max-limit=10000000</code></div>
</div>
<br />
<div style="text-align: justify;">
<b>Langkah 11</b></div>
<div style="text-align: justify;">
Membuat Queue per terminal</div>
<br />
<div class="codeblock" style="text-align: left;">
<div class="title">
Code:</div>
<div class="body" dir="ltr">
<code>queue tree add name=pcbil packet-mark=billing parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc1 packet-mark=pc1 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc2 packet-mark=pc2 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc3 packet-mark=pc3 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc4 packet-mark=pc4 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc5 packet-mark=pc5 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc6 packet-mark=pc6 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc7 packet-mark=pc7 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc8 packet-mark=pc8 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc9 packet-mark=pc9 parent=sobatku limit-at=64000 max-limit=250000<br />
queue tree add name=pc10 packet-mark=pc10 parent=sobatku limit-at=64000 max-limit=250000</code></div>
</div>
<div style="background-color: white; border: medium none; color: black; overflow: hidden; text-align: left; text-decoration: none;">
<br />Demikian tips sederhana kali ini, Semoga Bermanfaat..........</div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com1tag:blogger.com,1999:blog-3729602617262252645.post-64006450589811422192012-09-25T18:11:00.001-07:002012-09-25T18:11:56.740-07:00Tips Konfigurasi Firewall Mikrotik <div style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px;">
Sudah banyak tips trik konfigurasi firewall mikrotik di internet.saya hanya ingin menambahkan tips konfigurasi yang saya modifikasi sendiri.<br />
script nya di copas aja di terminal, firewall berikut untuk block port"
yang sering di pake virus, dan juga akses ke mikrotik di batasi hanya
untuk ip-ip di address-list aour network</div>
<div style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px;">
Kita buat dulu address-list dgn nama ournetwork, diisi IP yang di ijinkan untuk akses mikrotik anda.<br />
<br />
<a name='more'></a><br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a></div>
<div style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 18px;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">/ ip firewall address-list<br style="line-height: 1.5;" />add list=ournetwork address=x.x.x.x/x disabled=no<br style="line-height: 1.5;" />add list=ournetwork address=192.168.0.0/24 disabled=no<br style="line-height: 1.5;" />/</span></div>
</div>
</div>
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 18px; margin-bottom: 24px;" />
<div style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px;">
Trus kita masukin script firewall nya:</div>
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-size: 10px; line-height: 1.5; text-align: justify;">
/ ip firewall filter<br />
add chain=forward connection-state=established action=accept comment="allow established connections" disabled=no<br />
add chain=forward connection-state=related action=accept comment="allow related connections" disabled=no<br />
add chain=virus protocol=udp dst-port=135-139 action=drop comment="Drop Messenger Worm" disabled=no<br />
add chain=forward connection-state=invalid action=drop comment="drop invalid connections" disabled=no<br />
add chain=virus protocol=tcp dst-port=135-139 action=drop comment="Drop Blaster Worm" disabled=no<br />
add chain=virus protocol=tcp dst-port=1433-1434 action=drop comment="Worm" disabled=no<br />
add chain=virus protocol=tcp dst-port=445 action=drop comment="Drop Blaster Worm" disabled=no<br />
add chain=virus protocol=udp dst-port=445 action=drop comment="Drop Blaster Worm" disabled=no<br />
add chain=virus protocol=tcp dst-port=593 action=drop comment="________" disabled=no<br />
add chain=virus protocol=tcp dst-port=1024-1030 action=drop comment="________" disabled=no<br />
add chain=virus protocol=tcp dst-port=1080 action=drop comment="Drop MyDoom" disabled=no<br />
add chain=virus protocol=tcp dst-port=1214 action=drop comment="________" disabled=no<br />
add chain=virus protocol=tcp dst-port=1363 action=drop comment="ndm requester" disabled=no<br />
add chain=virus protocol=tcp dst-port=1364 action=drop comment="ndm server" disabled=no<br />
add chain=virus protocol=tcp dst-port=1368 action=drop comment="screen cast" disabled=no<br />
add chain=virus protocol=tcp dst-port=1373 action=drop comment="hromgrafx" disabled=no<br />
add chain=virus protocol=tcp dst-port=1377 action=drop comment="cichlid" disabled=no<br />
add chain=virus protocol=tcp dst-port=2745 action=drop comment="Bagle Virus" disabled=no<br />
add chain=virus protocol=tcp dst-port=2283 action=drop comment="Drop Dumaru.Y" disabled=no<br />
add chain=virus protocol=tcp dst-port=2535 action=drop comment="Drop Beagle" disabled=no<br />
add chain=virus protocol=tcp dst-port=2745 action=drop comment="Drop Beagle.C-K" disabled=no<br />
add chain=virus protocol=tcp dst-port=3127 action=drop comment="Drop MyDoom" disabled=no<br />
add chain=virus protocol=tcp dst-port=3410 action=drop comment="Drop Backdoor OptixPro" disabled=no<br />
add chain=virus protocol=tcp dst-port=4444 action=drop comment="Worm" disabled=no<br />
add chain=virus protocol=udp dst-port=4444 action=drop comment="Worm" disabled=no<br />
add chain=virus protocol=tcp dst-port=5554 action=drop comment="Drop Sasser" disabled=no<br />
add chain=virus protocol=tcp dst-port=8866 action=drop comment="Drop Beagle.B" disabled=no<br />
add chain=virus protocol=tcp dst-port=9898 action=drop comment="Drop Dabber.A-B" disabled=no<br />
add chain=virus protocol=tcp dst-port=10000 action=drop comment="Drop
Dumaru.Y, sebaiknya di didisable karena juga sering digunakan utk vpn
atau webmin" disabled=yes<br />
add chain=virus protocol=tcp dst-port=10080 action=drop comment="Drop MyDoom.B" disabled=no<br />
add chain=virus protocol=tcp dst-port=12345 action=drop comment="Drop NetBus" disabled=no<br />
add chain=virus protocol=tcp dst-port=17300 action=drop comment="Drop Kuang2" disabled=no<br />
add chain=virus protocol=tcp dst-port=27374 action=drop comment="Drop SubSeven" disabled=no<br />
add chain=virus protocol=tcp dst-port=65506 action=drop comment="Drop PhatBot, Agobot, Gaobot" disabled=no<br />
add chain=forward action=jump jump-target=virus comment="jump to the virus chain" disabled=no<br />
add chain=input connection-state=established action=accept comment="Accept established connections" disabled=no<br />
add chain=input connection-state=related action=accept comment="Accept related connections" disabled=no<br />
add chain=input connection-state=invalid action=drop comment="Drop invalid connections" disabled=no<br />
add chain=input protocol=udp action=accept comment="UDP" disabled=no<br />
add chain=input protocol=icmp limit=50/5s,2 action=accept comment="Allow limited pings" disabled=no<br />
add chain=input protocol=icmp action=drop comment="Drop excess pings" disabled=no<br />
add chain=input protocol=tcp dst-port=21 src-address-list=ournetwork action=accept comment="FTP" disabled=no<br />
add chain=input protocol=tcp dst-port=22 src-address-list=ournetwork action=accept comment="SSH for secure shell" disabled=no<br />
add chain=input protocol=tcp dst-port=23 src-address-list=ournetwork action=accept comment="Telnet" disabled=no<br />
add chain=input protocol=tcp dst-port=80 src-address-list=ournetwork action=accept comment="Web" disabled=no<br />
add chain=input protocol=tcp dst-port=8291 src-address-list=ournetwork action=accept comment="winbox" disabled=no<br />
add chain=input protocol=tcp dst-port=1723 action=accept comment="pptp-server" disabled=no<br />
add chain=input src-address-list=ournetwork action=accept comment="From Datautama network" disabled=no<br />
add chain=input action=log log-prefix="DROP INPUT" comment="Log everything else" disabled=no<br />
add chain=input action=drop comment="Drop everything else" disabled=no<br />
/ </div>
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-size: 10px; line-height: 1.5; text-align: justify;">
</div>
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-size: 10px; line-height: 1.5; text-align: justify;">
<b>Sekian Tipsnya, Semoga bermanfaat buat teman - teman sekalian.............. </b></div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-60914189426761898682012-09-25T18:01:00.000-07:002012-09-25T18:01:13.376-07:00Tips management bandwidth dengan queue tree PCQ <div data-mce-style="text-align: justify;" style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px; text-align: justify;">
Kondisi Speedy Normal, Asumsikan internetnya sudah jalan (settingan IP public, private dan NAT sudah)<br />
saya kasih contekan konfigurasi management bandwidth dengan queue pcq,
biar agan bisa langsung copas ke teminal nya mikrotik kalo menggunakan
IP yang nya sama..<br />
Contohnya pake IP private 192.168.0.0/24 (ether2)<br />
Gateway di mikrotik 192.168.0.254 (ether1)<br />
ada 10 PC client dari IP 1 sampai 10<br />
layanan 2Mbps</div>
<div data-mce-style="text-align: justify;" style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px; text-align: justify;">
<a name='more'></a> </div>
<div style="font-family: Georgia, 'Bitstream Charter', serif; font-size: 16px; line-height: 1.5; margin-bottom: 24px;">
buat mangle nya dulu pada mikrotik untuk marking koneksi dan packet dari
tiap PC client, contoh berikut IP PC client 192.168.0.1 sampai
192.168.0.10<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a></div>
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 18px; margin-bottom: 24px;" />
<div style="line-height: 1.5;">
</div>
<div style="line-height: 1.5;">
/ ip firewall mangle<br />
add chain=forward protocol=!icmp src-address=192.168.0.1
action=mark-connection new-connection-mark=PC1-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC1-con action=mark-packet new-packet-mark=PC1 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.2
action=mark-connection new-connection-mark=PC2-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC2-con action=mark-packet new-packet-mark=PC2 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.3
action=mark-connection new-connection-mark=PC3-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC3-con action=mark-packet new-packet-mark=PC3 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.4
action=mark-connection new-connection-mark=PC4-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC4-con action=mark-packet new-packet-mark=PC4 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.5
action=mark-connection new-connection-mark=PC5-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC5-con action=mark-packet new-packet-mark=PC5 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.6
action=mark-connection new-connection-mark=PC6-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC6-con action=mark-packet new-packet-mark=PC6 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.7
action=mark-connection new-connection-mark=PC7-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC7-con action=mark-packet new-packet-mark=PC7 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.8
action=mark-connection new-connection-mark=PC8-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC8-con action=mark-packet new-packet-mark=PC8 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.9
action=mark-connection new-connection-mark=PC9-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC9-con action=mark-packet new-packet-mark=PC9 passthrough=no disabled=no<br />
add chain=forward protocol=!icmp src-address=192.168.0.10
action=mark-connection new-connection-mark=PC10-con passthrough=yes
disabled=no<br />
add chain=forward protocol=!icmp connection-mark=PC10-con action=mark-packet new-packet-mark=PC10 passthrough=no disabled=no<br />Semoga dapat berjalan dengan baik..........<br />
</div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com1tag:blogger.com,1999:blog-3729602617262252645.post-42739723841896744542012-09-25T17:58:00.003-07:002012-09-25T18:05:15.290-07:00Tips Excel connection dan vb.net bagian ke 1<b>Tips VB.net dan excel connection Bagian Pertama</b><br />
<br />
<div style="margin: 0mm 0mm 0.0001pt;">
<b>Setting agar VB.Net bisa terkoneksi dengan excel</b></div>
<div style="margin: 0mm 0mm 0.0001pt;">
Pada project "Add
reference" , masuk tabulasi "COM" lalu pilih Microsoft Excel
Object Library</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Masukan kode berikut sebelum
Public (paling atas)</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Imports Excel =
Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b>Membuat file excel baru</b></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Berikut contohnya, dipasang
pada button 1</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Imports Excel =
Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Public Class Form1</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> mendefine object excel</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Dim xlApp As New
Excel.Application</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Dim xlWorkBook As
Excel.Workbook</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> membuat WorkBook (file
excel) baru</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkBook =
xlApp.Workbooks.Add</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
'~~> memumculkan file excel </span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlApp.Visible = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Sub</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Class</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br />
<a name='more'></a><br class="Apple-interchange-newline" /><br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b>Membuka file excel</b><br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><b><br /></b></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Berikut contohnya, dipasang
pada button2</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Imports Excel = Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Public Class Form1</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Dim xlApp As New Excel.Application</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Dim xlWorkBook As Excel.Workbook</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> membuka file excel, ganti path dan nama file
nya sesuai kebutuhan</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkBook = xlApp.Workbooks.Open("C:\vb dan
excel\percobaan.xlsx")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlApp.Visible = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Sub</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Class</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b>Memasukan value pada file excel</b></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Berikut contohnya, dipasang
pada button1 membuat file baru dulu dan di insert</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Imports Excel = Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Public Class Form1</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Dim xlApp As New Excel.Application</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Dim xlWorkBook As Excel.Workbook</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> define untuk sheet excel nya</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> Dim xlWorkSheet As Excel.Worksheet</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkBook = xlApp.Workbooks.Add</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlApp.Visible = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> menghubungkan pada sheet file excelnya</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With xlWorkSheet</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> contoh langsung memasukan nilainya ke field</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("A1").Value = "Hari"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("A2").Value = "Senin"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("A3").Value = "Selasa"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("A4").Value = "Rabu"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("A5").Value = "Kamis"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("B1").Value = "Pengeluaran"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("B2").Value = "1000"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("B3").Value = "1500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("B4").Value = "1200"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"> .Range("B5").Value = "2500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Sub</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Class</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b>Memasukan formula (rumus)</b></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Berikut contohnya, dipasang
pada button1 membuat file baru dulu dan di insert</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Dicontohkan memasukan formula
untuk summary</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkBook =
xlApp.Workbooks.Add</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
xlApp.Visible = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
With xlWorkSheet</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A1").Value =
"Hari"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A2").Value =
"Senin"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A3").Value =
"Selasa"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A4").Value =
"Rabu"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A5").Value =
"Kamis"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
.Range("B1").Value = "Pengeluaran"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B2").Value =
"1000"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B3").Value =
"1500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B4").Value =
"1200"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B5").Value =
"2500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
'~~> Memasukan tulisan total pengeluaran</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A6").Value =
"Total Pengeluaran"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> memasukan formula</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B6").Formula
= "=Sum(B2:B5)"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Sub</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b>Mengatur format text</b></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Berikut contohnya, dipasang
pada button1 membuat file baru dulu dan di insert</div>
<div style="margin: 0mm 0mm 0.0001pt;">
Dicontohkan diatur agar
autofit colums, mengatur background hitam dan tulisan putih pada field nilai
angka dan membuat garis tabelnya</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-size: xx-small;">Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click</span></div>
</div>
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">xlWorkBook = xlApp.Workbooks.Add</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
xlApp.Visible = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<br />
<span style="font-size: xx-small;">
With xlWorkSheet</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A1").Value =
"Hari"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A2").Value =
"Senin"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A3").Value =
"Selasa"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A4").Value =
"Rabu"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A5").Value =
"Kamis"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
.Range("B1").Value = "Pengeluaran"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B2").Value =
"1000"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B3").Value =
"1500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B4").Value =
"1200"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B5").Value =
"2500"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
'~~> Memasukan tulisan total pengeluaran</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("A6").Value =
"Total Pengeluaran"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
</div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">'~~> memasukan formula</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Range("B6").Formula
= "=Sum(B2:B5)"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
'~~> menghitamkan bacground dan text putih</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With
.Range("A1:B1,A6:A7")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Interior.ColorIndex = 1
'<~~ Cell Back Color menjadi hitam</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With .Font</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 2 '<~~ Font
Color menjadi putih</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Size = 8</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Name = "Tahoma"</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Underline =
Excel.XlUnderlineStyle.xlUnderlineStyleSingle</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Bold = True</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />
'~~> membuat garis tabel</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With .Range("A1:B7")</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With
.Borders(Excel.XlBordersIndex.xlEdgeLeft)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlDouble</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight =
Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With
.Borders(Excel.XlBordersIndex.xlEdgeTop)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlContinuous</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight =
Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With .Borders(Excel.XlBordersIndex.xlEdgeBottom)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlContinuous</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight = Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With .Borders(Excel.XlBordersIndex.xlEdgeRight)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlContinuous</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight = Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With
.Borders(Excel.XlBordersIndex.xlInsideVertical)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlContinuous</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight = Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">With
.Borders(Excel.XlBordersIndex.xlInsideHorizontal)</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.LineStyle =
Excel.XlLineStyle.xlContinuous</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.ColorIndex = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.TintAndShade = 0</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Weight = Excel.XlBorderWeight.xlThin</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;"><br />'~~> auto fit tulisan pada kolom</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">.Columns("A:B").EntireColumn.AutoFit()</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End
With</span></div>
<div style="margin: 0mm 0mm 0.0001pt;">
<span style="font-size: xx-small;">End Sub</span></div>
<br />
Sekian....Semoga bermanfaat buat teman2....Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-42227342644149095042012-09-25T17:55:00.003-07:002012-09-25T17:55:54.150-07:00Tips Excel connection dan vb.net bagian ke 2INI ADALAH LANJUTAN DARI BAGIAN PERTAMA<br />
<br />
<div style="margin: 0mm 0mm 0.0001pt;">
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px; text-align: start;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="line-height: 1.5;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt; line-height: 1.5;">Copy Paste dalam satu sheet yang sama</span></div>
</div>
</div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Imports Excel = Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Public Class Form1</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlApp As New Excel.Application</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkBook As Excel.Workbook</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkSheet As Excel.Worksheet</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlSourceRange, xlDestRange As Excel.Range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx") </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlApp.Visible = True</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> sumber yg mau di copy</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange = xlWorkSheet.Range("A1:B10")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> tujuan atau mau dipaste</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlDestRange = xlWorkSheet.Range("D1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Copy paste range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange.Copy(xlDestRange)</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> End Sub </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">End Class</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<a name='more'></a><br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Copy Paste dalam satu workbook yang sama beda worksheet</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span><br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"><br /></span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Imports Excel = Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Public Class Form1</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlApp As New Excel.Application</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkBook As Excel.Workbook</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkSheet, xlWsheet2 As Excel.Worksheet</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlSourceRange, xlDestRange As Excel.Range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlApp.Visible = True</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> worksheet sumber</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> worksheet tujuan</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWsheet2 = xlWorkBook.Sheets("Sheet2")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set sumber range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange = xlWorkSheet.Range("A1:B10")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set range tujuan</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlDestRange = xlWsheet2.Range("A1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Copy paste range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange.Copy(xlDestRange)</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> End Sub</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">End Class</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Copy Paste beda workbook</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Imports Excel = Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Public Class Form1</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlApp As New Excel.Application</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkBook, xlWorkBook2 As Excel.Workbook</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlWorkSheet, xlWsheet2 As Excel.Worksheet</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Dim xlSourceRange, xlDestRange As Excel.Range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Buka file sumber</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Buka file tujuan</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan1.xlsx")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlApp.Visible = True</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set sumber worksheet</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set tujuan worksheet</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlWsheet2 = xlWorkBook2.Sheets("Sheet1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set sumber range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange = xlWorkSheet.Range("A1:B10")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Set range tujuan</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlDestRange = xlWsheet2.Range("A1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Copy paste range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> xlSourceRange.Copy(xlDestRange)</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> End Sub</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">End Class</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Merging/Unmerging Cells</span></b></div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px; text-align: start;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="line-height: 1.5;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Imports Excel =
Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt; line-height: 1.5; text-align: justify;">Public Class Form1</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;"> '~~> Define your Excel Objects </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Dim xlApp As New
Excel.Application </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Dim xlWorkBook As
Excel.Workbook </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Dim xlWorkSheet As
Excel.Worksheet </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Dim xlSourceRange,
xlDestRange As Excel.Range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlWorkBook =
xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlApp.Visible =
True </span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">
</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlWorkSheet =
xlWorkBook.Sheets("Sheet1")</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">'~~> Set range
yg mau di merge</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlSourceRange =
xlWorkSheet.Range("A1", "E1") \</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">'~~> Merge range</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlSourceRange.Merge()</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">'~~> Jika mau di set
center alignment secara horizontal dan vertical g</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlSourceRange.HorizontalAlignment
= Excel.Constants.xlCenter</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">xlSourceRange.VerticalAlignment
= Excel.Constants.xlCenter</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">End Sub</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 7.5pt;">End Class</span><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Mencetak / Print</span></b></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">Imports Excel =
Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">Public Class Form1</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Dim xlApp
As New Excel.Application</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Dim
xlWorkBook As Excel.Workbook</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Dim
xlWorkSheet As Excel.Worksheet</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Private
Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
xlApp.Visible = True</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
xlWorkSheet = xlWorkBook.Sheets("Sheet1")</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
'~~> Printing </span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
xlWorkSheet.PrintOut(From:=1, To:=1, Copies:=1, Collate:=True)</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> End Sub</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">End Class</span><span style="font-size: small;"></span></span><br />
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Save atau save as dan
Keluar dari file excel</span></b></div>
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">lagi.. syntaxnya aja ya
heheheh</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Save dan close</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">'~~> Save </span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">xlWorkBook.Save()</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">'~~> Close</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">xlWorkBook.Close()</span><span style="font-size: small;"></span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Saveas dan close</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;"> </span><span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">'~~> Save As</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> xlWorkBook.SaveAs(Filename:="C:\vb
dan excel\percobaanNew.xlsx")</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> '~~> Close</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> xlWorkBook.Close()</span><span style="font-size: small;"></span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Kirim file Excel
menggunakan Outlook</span></b></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">jangan lupa add
reference Microsoft Outlook nya</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">Imports Excel =
Microsoft.Office.Interop.Excel</span></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">Imports Outlook =
Microsoft.Office.Interop.Outlook</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">Public Class Form1</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Dim
objOutlook As New Outlook.Application</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Dim
objEmail As Outlook.MailItem</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> Private
Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
Dim body As String</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
Dim ExcelFile As String = "C:\vb dan excel/percobaan.xlsx"</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
objOutlook = CType(CreateObject("Outlook.Application"),
Outlook.Application)</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
objEmail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
body = "Hello," & vbCrLf & vbCrLf</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
body += "Terlampir file excelnya" & vbCrLf & vbCrLf</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
body += "Terinakasih," & vbCrLf & "<Siapa
aku>"</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
With objEmail</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.Subject = "Kirim file excel via VB dan outlook"</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.To = "tujuan@domain.com"</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.Body = body</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.Attachments.Add(ExcelFile)</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
'~~> jika ingin dimunculkan di monitor</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.Display(True)</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
.Send()</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">
End With</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;"> End Sub</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif;"><span style="font-size: xx-small;">End Class</span><span style="font-size: small;"></span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<b><span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">Close Excel and Clean Up</span></b></div>
</div>
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: 'Times New Roman', serif; font-size: 13.5pt;">jangan lupa untuk selalu
membersihkan / clean up dan melepas object excelnya denga syntax berikut</span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-family: Georgia, 'Bitstream Charter', serif; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;" style="font-family: Georgia, 'Bitstream Charter', serif; line-height: 1.5; text-align: justify;">
<div style="line-height: 1.5; margin-bottom: 24px;">
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">'~~> Clean Up</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> releaseObject(xlApp)</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> releaseObject(xlWorkBook)</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"><br /></span>
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;">'~~> Release objects</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> Private
Sub releaseObject(ByVal obj As Object) </span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> Try</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> obj = Nothing</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> Catch ex As Exception</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> obj = Nothing</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> Finally</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> GC.Collect()</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> End Try</span><br />
<span style="font-family: 'Times New Roman', serif; font-size: xx-small;"> End Sub</span></div>
</div>
</div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-25172695860706654222012-09-25T17:51:00.002-07:002012-09-25T17:51:52.407-07:00Tips Cara Cetak Ulang Tiket Pesawat Lion Air OnlineIni adalah pengalaman pribadi saya..........<br />
saya posting dengan harapan bisa membantu anda yang sedang bingung
ketika kehilangan Tiket Pesawat Online pesawat Lion Air yang sudah anda
print sebelumnya.<br />
Saya pernah alami hal itu, sebenarnya tidak masalah karena bisa nanti di
Bandara memberikan kode booking yang sebelumnya sudah di SMS kan ke
saya, tetapi alangkah lebih mengetahui kebenaran dari Kode Booking
tersebut agar nanti kalau ada kesalahan bisa dibenarkan lebih awal.<br />
<br />
<a name='more'></a><br />
Kode Booking tiket pesawat online Lion Air biasanya ditandai seperti tulisan dibawah ini :<br />
<br />
GEUKKQ, JT765<br />
<br />
Dengan kode booking seperti diatas, kita bisa mengetahui bahwa Kode
Booking tersebut milik siapa dan kapan jadwal pemberangkatannya. Dengan
cara berikut:<br />
<br />
1. Buka situs https://secure2.lionair.co.id/lionairpnr/RetrieveBooking.aspx<br />
2. Masukkan kode booking anda pada kolom yang tersedia. Contoh saya memasukkan berdasarkan kode diatas :<br />
<br />
Booking Reference (PNR) = Isi GEUKKQ<br />
Flight Number = Isi JT765<br />
Fist Name = Isi nama depan anda<br />
Last Name = Isi nama belakang anda<br />
Flight Date = pilih bulan, tahun, hari dan tanggal pemberangkatan<br />
<br />
4. Klik tombol RETRIEVE<br />
Jika benar maka anda akan mendapatkan Nama Penumpang Pesawat Lion Air berdasarkan Kode Booking tersebut. Sangat mudah bukan ?<br />
<br />
Semoga bermanfaat dan anda bisa mengetahui jam pemberangkatan
berdasarkan Kode Booking Tiket Pesawat Lion Air yang anda punya tanpa
perlu repot-repot memintanya kembali ke Agen Tiket anda.
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-3804276571005618392012-09-25T17:49:00.001-07:002012-09-25T17:49:21.935-07:00Tips Konfigurasi Air Grid UbiquityTips konfigurasi Air Grid<br />
<br />
1.Setting IP laptop agar 1 subnet dengan IP default Air Grid<br />
2.Buka browser, lalu panggil IP default radio Air Grid. <br />
IP Default : 192.168.1.20<br />
3.Muncul tampilan user login <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-U-9o2r0kJBs/UFrFOFgWuWI/AAAAAAAAABU/UrjBZLzhLGE/s1600/login.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
4.Masukan user dan password default Air Grid<br />
User : ubnt <br />
Password : ubnt<br />
5.Tampilan awal<br />
<br />
<a name='more'></a><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-UmXBDOaZmqI/UFrFw6uvqJI/AAAAAAAAABc/ceLK5lNLauA/s1600/1.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
6.Masuk ke tabulasi Wireless untuk konfig<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-dkvpLA4RHDw/UFrGXO8cBTI/AAAAAAAAABk/Fbi1GoqZvag/s1600/2.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
Untuk konfigurasi satu sisi sebagai AP (Access Point) dan satu sisi sebagai Station<br />
Gambar diatas adalah sebagai Access Point WDS, <br />
dibuat WDS (Wireless Distribution System) karena link akan digunakan
untuk bisa melewatkan broadcast IP dari bawahnya. Sebenarnya fungsi
utama Wireless Distribution System (WDS) adalah sebuah system yang
memungkinkan jaringan wireless dikembangkan menggunakan beberapa access
point tanpa harus memerlukan backbone kabel jaringan untuk menghubungkan
mereka, seperti cara tradisional (bridge biasa)<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><br />
<br />
7.Setting SSID dengan nama yang mudah kita ingat, seperti dengan menggunakan nama site. Contoh : PIKSI_1 <br />
Ini akan jadi acuan saat konfig stationnya, untuk mencari AP yang dimaksud.<br />
8.Country code gunakan saja United States<br />
9.Mode gunakan A/N mixed<br />
10.Channel Band width disesuaikan dengan kebutuhan dan situasi serta
kondisi di lapangan, settingan ini mempengaruhi Band Width yang bisa di
lewatkan serta interference. Semakin lebar semakin besar Band Width yang
bisa dilewatkan juga semakin besar kemungkinan interference.<br />
11.Channel shifting jika di enable maka pilihan channel akan banyak
sampai keluar dari 5.8 GHz (jika yang digunakan adalah Air Grid 5,8GHz).
Ada pilihan dari 5,1GHz – 5,3 GHz dan 5,7GHz – 5,8GHz.<br />
12.Tentukan frequency yang akan di gunakan, akan lebih baik jika
sebelumnya sudah dilakukan scanning freq. Jadi bisa kita setting dengan
freq. Yang memang belum di gunaan di area tersebut, guna menghindari
interference dan memudahkan untuk mengkoneksikan radio nya.<br />
13.Tentukan power dari radio nya, jangan di contreng obey regulatory
power, karena akan membuat power radio terbatas, sesuai aturan yang ada
di negara yang di pilih di pilihan country code.<br />
14.Max tx rate, Mbps di buat automatic saja, kecuali memang dibutuhkan untuk di set.<br />
15.Untuk Wireless security di biarkan saja dulu tanpa security, nanti di set setelah terkoneksi saja.<br />
16.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.<br />
17. Masuk tabulasi Network, untuk setting network radio<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-gAQL9mDugfI/UFrHBO2SAUI/AAAAAAAAABs/VPwPh0meRHI/s1600/3.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
18.Network mode di setting bridge, karena kebutuhan kita adalah
bridging. Kecuali memang di butuhkan sebagai router, maka di set router.<br />
19.Disable Network none saja, karena jika didisable berarti tidak di fungsikan.<br />
20.Pilih static IP, lalu masukan IP address sesuai planning. Contreng
STP (Spanning Tree Protokol). Yang berfungsi sebagai protocol untuk
pengaturan koneksi dengan menggunakan algoritma spanning tree. Kelebihan
STP dapat menyediakan system jalur backup & juga mencegah loop yang
tidak diinginkan pada jaringan yang memiliki beberapa jalur menuju ke
satu tujuan darisatu host.<br />
21.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.<br />
22.Setelah di rubah IP maka koneksi akan terputus, rubah IP pada laptop
menjadi 1 subnet dengan IP baru radio, lalu panggil IP baru radio di
browser. Dan login kembali<br />
23.Untuk merubah user dan password masuk ke tabulasi system<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-mzNk-9MC1VQ/UFrHqb6eRaI/AAAAAAAAAB0/4sH6atls2OA/s1600/4.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
24.Device name diisi nama untuk perangkat radio.<br />
25.Untuk merubah user ganti Administraor User name.<br />
26.Untuk mengganti Password masukan Password lama pada current password,
dan masukan password baru di new password serta verify new password.<br />
27.Setelah selesai maka kita konfig radio di sisi lainnya<br />
28.Ulangi langkah 1 – 6 , lalu setting sebagai Station WDS<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-NGXU9x7CW98/UFrIEsk7Q2I/AAAAAAAAAB8/KGnpjQHhM-U/s1600/5.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
29.Samakan settingan frequency dan channel Bandwidth seperti pada Access Point tadi.<br />
30.Klik Select disamping SSID<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-4xk4PvA8PQI/UFrIddGRsJI/AAAAAAAAACU/a6VyiDmQUBM/s1600/6.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
31.Pilih SSID yang kita setting pada Access Point, lalu klik select.<br />
Jika belum ada maka pastikan arah antena sudah benar mengarah ke Access
Point. Alu klik lagi scan. Sampai didapatkan SSID yang kita set tadi di
Access Point.<br />
32.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.<br />
33.Jika terkoneksi maka tampilan Main adalah sbb:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/-9V2OcTQoTek/UFrIxKZpmaI/AAAAAAAAACc/vqkemCON218/s1600/7.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
34.Usahakan mendapat signal strength minimal -70dBm<br />
35.Ulangi langkah no 17 – 26.<br />
36.Setelah terkoneksi coba ping IP radio Access Point lalu panggil di browser, kita akan konfig wireless security nya.<br />
37.Masuk ke tabulasi wireless, enablekan securitynya<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-d8iToGEroUM/UFrI9fsTndI/AAAAAAAAACk/0W2a_sbaAfs/s1600/8.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
38.Pilih mode security nya<br />
39.Pilih open, karena kita menggunakan WDS<br />
40.Piling length dan key type.<br />
41.Lalu masukan security key nya<br />
42.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set<br />
43.Setelah di apply maka link akan lepas, karena security nya tidak sama<br />
44.Pada radio station masuk juga ke tabulasi wireless, dan samakan
settingan wireless secutrity nya dengan settingan security di sisi
Access Point tadi.<br />
45.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set<br />
46.Jika settingan security sama maka link akan terkoneksi kembali<br />
47.Tampilan Main widow jika berhasil terkoneksi adalah sbb:<br />
ACCESS POINT STATION<br />
Salam Sukses Selalu Kawan.............<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-XWPzmZVj5_A/UFrJlk3eIPI/AAAAAAAAAC0/7-dKgHAYEQo/s1600/10.png" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-16884309681223570322012-09-25T17:45:00.002-07:002012-09-25T17:46:11.891-07:00Tips Membuat SMS gateway dengan The dude dan GammuTips monitoring jaringan anda, jika membutuhkan sms gateway. simple tutorial berikut adalah menggunakan aplikasi the dude dari mikrotik untuk monitoring jaringannya dan gammu untuk sms gateway nya.<br />
jika ada link / perangkat yang mati/down maka akan mengirimkan alert sms ke no yg terdaftar.<br />
<br />
Pertama tentunya dibutuhkan the dude dan gammu for windows, bisa di download pada link berikut:<br />
<a href="http://wammu.eu/download/gammu/win32/" rel="nofollow" target="_blank">gammu</a><br />
<a href="http://www.mikrotik.com/thedude.php" rel="nofollow" target="_blank">thedude</a><br />
<br />
<br />
Hardware yg digunakan bisa handphone atau modem, untuk melihat hardware yang anda gunakan supported by gammu atau tidak bisa dilihat dari link berikut:<br />
<a href="http://wammu.eu/phones/" rel="nofollow" target="_blank">daftar-supported-handphoe-modem</a><br />
<br />
<a name='more'></a><br />
<br />
Yang terpenting adalah koneksi gammu dengan hardware nya, install dahulu driver untuk hardware yang anda gunakan dan pastikan bisa terkoneksi atau terdeteksi oleh windowsnya, bisa di lihat di my computer --> properties --> device manager<br />
catat koneksi hardware ke ports (com) nomer berapa<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><br />
<br />
Extrak gammu di C:/ (hal ini untuk membuat lebuh mudah saja, untuk advance bisa di ekstrak sesuai keinginan. berhubungan dengan setting pada the dude nya)<br />
<br />
Edit file gammurc (gunakan wordpad saja), masukan port dan koneksi sesuai pada device manager tadi dan sesuai koneksi ke hardware yang anda gunakan. edit pada port dan connection saja cukup. untuk advance bisa di set untuk kebutuhan lainnya sesuai kebutuhan.<br />
contoh:<br />
<span style="font-size: xx-small;">port = com8:<br />#model = 6110<br />connection = at115200<br />#synchronizetime = yes<br />#logfile = gammulog<br />#logformat = textall<br />#use_locking = yes<br />#gammuloc = locfile<br />#startinfo = yes<br />#gammucoding = utf8<br />#rsslevel = teststable<br />#usephonedb = yes</span><br />
<br />
Untuk mengetest koneksi gunakan perintah berikut pada cmd (estimate gammu for windows diekstrak di C:/)<br />
<br />
<span style="font-size: x-small;">C:\gammu.exe --identify</span><br />
<br />
<span style="font-size: x-small;"><span style="font-size: small;">Jika sudah terkoneksi dengan baik akan muncul keterangan dari hardware</span></span><br />
<span style="font-size: x-small;"><span style="font-size: small;">contoh:</span></span><br />
<span style="font-size: xx-small;">Manufacturer : Wavecom<br />
Model : unknown (MULTIBAND 900E 1800)<br />
Firmware : 3.110 T (18-03-04)<br /> IMEI : xxxxxxxxxxxxxxxxxxx</span><br />
<span style="font-size: xx-small;"> SIM IMSI : xxxxxxxxxxxxxxxxxxxx</span><br />
<span style="font-size: x-small;"><span style="font-size: small;"><br /></span></span>
<span style="font-size: x-small;"><span style="font-size: small;">Untuk test kirim sms gunakan perintah berikut</span></span><br />
<br />
<span style="font-size: x-small;"><span style="font-size: small;">C:\</span>echo "boo" | gammu.exe --sendsms TEXT [nomer hp penerima]</span><br />
<br />
<span style="font-size: x-small;"><span style="font-size: small;">contoh:</span></span><br />
<br />
<span style="font-size: x-small;"><span style="font-size: small;">C:\</span>echo "TEST KIRIM SMS" | gammu.exe --sendsms TEXT [081221888888888]</span><span style="font-size: x-small;"><span style="font-size: small;"> </span></span><br />
<span style="font-size: x-small;"><span style="font-size: small;"><br /></span></span>
<span style="font-size: x-small;"><span style="font-size: small;">Kemudian pada the dude, buat service untuk kirim sms, pada setting--> polling --> edit list (notification) lalu add baru</span></span><br />
<span style="font-size: x-small;"><span style="font-size: small;">isi name sesuai keinginan dan type > execute localy</span></span><br />
<span style="font-size: x-small;"><span style="font-size: small;">kemudian edit perintahnya misal menjadi:</span></span><br />
<span style="font-size: x-small;"><span style="font-size: small;"><br /></span></span>
<span style="font-size: x-small;"><span style="font-size: small;">C:\</span>echo "</span><span style="font-size: x-small;"><span style="font-size: small;"><span style="font-size: x-small;">Service [Probe.Name] on [Device.Name] is now [Service.Status] ([Service.ProblemDescription])"</span> </span></span><span style="font-size: x-small;"> | gammu.exe --sendsms TEXT [081221888888888]</span><br />
<span style="font-size: x-small;"><span style="font-size: small;"> </span> </span><br />
Bisa di edit isi yang mau di kirimkan melalui sms, contoh diatas adalah default saja. Klik test saja dahulu untuk memastikan berfungsi atau tidaknya.<br />
<br />
Lalu pada perangkat yang mau di set kirim sms pada service di add service yang dibuat tadi.<br />
<br />
Tambahan: <br />
Untuk cek pulsa gunakan perintah berikut:<br />
<br />
<span style="font-size: x-small;"><span style="font-size: small;">C:\</span>gammu.exe --getussd (no cek pulsa)</span><br />
<span style="font-size: x-small;">Sekian, Semoga Bermanfaat </span>Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com2tag:blogger.com,1999:blog-3729602617262252645.post-90939866352425069612012-09-25T17:43:00.002-07:002012-09-25T17:43:40.005-07:00Tips Jaringan Menghindari KeyLoggerBanyak orang yang menggunakan jejaring sosial kena hack, hmm.. coba
ingat-ingat apa pernah login atau pake di PC yang digunakan banyak orang
/ warnet? Mungkin mereka kena KeyLogger..<br />
<br />
KeyLogger adalah aplikasi atau software yang bisa merekam aktifitas
pengguna dari komputer dimana KeyLogger itu terinstall,
KeyLogger mencatat semua aktivitas yang terjadi pada keyboard.<br />
<br />
<a name='more'></a><br />
<br />
keylogger ada yang berbentuk hardware, biasanya seukuran baterai ukuran
AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga
mencegat data yang dialirkan dari keyboard ke CPU. Ada juga yang berupa
flashdisk yang dipasang pada USB (software kali yang ini masuknya ya?
hehehe)<br />
<br />
keylogger yang berbentuk software terinstall pada komputer dengan cara bekerja sembunyi.<br />
Banyak metode yang di gunakan keylogger untuk merekam aktifitas pengguna
komputer, ada yang berdasarkan key stroke (merekam langsung semua yang
diketikan di keyboard), ada yang memantau clipboard Windows (merekam
copy paste yang dilakukan pada komputer), dan ada juga keylogger yang
secara terang-terangan memiliki interface yang cantik melalui
aplikasi-aplikasi yang sederhana bahkan kompleks, padahal ternyata
melakukan logging. Bahkan ada keylogger yang langsung mengirimkan data
rekamannya via email ke si pemilik keylogger. Dan mungkin masih banyak
lagi cara-cara “logging” aktifitas pengguna dengan memanfaatkan
keylogger.<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><br />
<br />
Sebenarnya manfaat keylogger bisa positif, misalnya untuk back-up, atau
untuk merekam aktifitas pada komputer untuk karyawan pada perusahaan
tertentu, namun banyak juga yang menjadi negatif dengan tujuan mencuri
password misalnya seperti password account social media atau e-banking..<br />
<br />
Apalagi sekarang aplikasi keylogger banyak yang gratisan tinggal download.. so... beware... hahahahha<br />
<br />
Cara sederhana untuk menghindari dampak adanya keylogger jika memang
terpaksa menggunakan komputer yang digunakan oleh banyak orang atau
warnet maka jangan iseng buka aplikasi ga jelas hehehehe.. Dan jika
membuka account yang menggunakan password gunakan fitur on-screen
keyboard (jika windows OS nya hehehehe)<br />
cara cepat nya di windows ==> run ketikkan osk.exe<br />
<br />
Dan selalu bersihkan history browser, cara cepat dengan cntrl-shift-del<br />
<br />
Salam Sukses Selalu Teman....... Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-34177802049726868342012-09-25T17:40:00.002-07:002012-09-25T17:40:35.712-07:00Cara Membuat Telnet via VB.net dengan plink.exe Untuk melakukan telnet via VB.net maka dibutuhkan aplikasi tambahan, yang saya gunakan adalah plink.exe<br />
Plink.exe adalah interface command-line dari putty. Putty sendiri adalah aplikasi under OS Windows yang digunakan untuk SSH, Telnet, rlogin atau rcpt. Untuk mereka yang bergelut dengan network tentunya tidak asing dengan putty.<br />
<br />
Plink.exe dapat didownload pada link berikut:<br />
<a href="http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html" rel="nofollow" target="_blank">Plink-download</a><br />
<br />
Untuk koneksi VB.net ke plink.exe untuk melakukan telnet, syntax nya adalah sbb:<br />
Pada kode dibawah IP yang akan di telnet adalah 192.168.1.1, dengan user: userku<br />
<br />
<a name='more'></a><br /><br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><br />
<div style="margin-bottom: 24px;">
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
<span style="font-size: x-small;">'~~> mendefine proses </span><br />
<span style="font-size: x-small;">Dim myprocess As New Process</span><br />
<span style="font-size: x-small;">Dim StartInfo As New System.Diagnostics.ProcessStartInfo</span><br />
<span style="font-size: x-small;">Dim ip As String</span><br />
<span style="font-size: x-small;"><br /></span>
<span style="font-size: x-small;">'~~> ip yang akan di telnet</span><br />
<span style="font-size: x-small;">ip = "192.168.1.1"</span><br />
<span style="font-size: x-small;">'~~> arahkan pada file plink.exe</span><br />
<span style="font-size: x-small;">StartInfo.FileName = "C:\Utility\plink.exe"</span><br />
<span style="font-size: x-small;">StartInfo.CreateNoWindow = True</span><br />
<span style="font-size: x-small;">StartInfo.WindowStyle = ProcessWindowStyle.Normal</span><br />
<span style="font-size: x-small;">StartInfo.RedirectStandardInput = True</span><br />
<span style="font-size: x-small;">StartInfo.RedirectStandardOutput = True</span><br />
<span style="font-size: x-small;">'~~> dibutuhkan untuk redirect</span><br />
<span style="font-size: x-small;">StartInfo.UseShellExecute = False</span><br />
<span style="font-size: x-small;">myprocess.StartInfo = StartInfo</span><br />
<span style="font-size: x-small;">'~~> melakukan perintah telnet dengan user</span><br />
<span style="font-size: x-small;">StartInfo.Arguments = "-telnet " + ip + " -l userku"</span><br />
<span style="font-size: x-small;">myprocess.Start()</span><br />
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
Lalu kode berikut adalah untuk stream proses input dan outputnya, saya gunakan sleep untuk jaga-jaga jika koneksi agak lemot heheheh.<br />
Dan perintah yang akan dieksekusi pada telnet saya contohkan adlaah memunculkan ip address router mikrotik.<br />
Lalu menyimpan hasilnya pada file txt, dicontohkan file txt ada di C:\cobatelnet\ dengan nama file hasil.txt (file sudah dibuat dan dibiarkan kosong saja.)<br />
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
<span style="font-size: x-small;">Dim SR As System.IO.StreamReader = myprocess.StandardOutput</span><br />
<span style="font-size: x-small;">Dim SW As System.IO.StreamWriter = myprocess.StandardInput</span><br />
<span style="font-size: x-small;"><br /></span>
<span style="font-size: x-small;">Threading.Thread.Sleep(3000)</span><br />
<span style="font-size: x-small;">'~~> password untuk telnett</span>
<br />
<span style="font-size: x-small;">SW.WriteLine("passwordku")</span><br />
<span style="font-size: x-small;">Threading.Thread.Sleep(20000)</span><br />
<span style="font-size: x-small;">'~~> perintah memunculkan ip adress pada command line mikrotik</span><br />
<span style="font-size: x-small;">SW.WriteLine("ip address print")</span><br />
<span style="font-size: x-small;">Threading.Thread.Sleep(3000)</span><br />
<span style="font-size: x-small;">'~~> keluar telnet</span><br />
<span style="font-size: x-small;">SW.WriteLine("quit")</span><br />
<span style="font-size: x-small;"><br /></span>
<span style="font-size: x-small;">'~~> menyimpan hasil pada file txt</span><br />
<span style="font-size: x-small;">Dim objWriter As New System.IO.StreamWriter("C:\cobatelnet\hasil.txt")</span><br />
<span style="font-size: x-small;">objWriter.Write(SR.ReadToEnd)</span><br />
<span style="font-size: x-small;">'~~> clean up dan closing</span><br />
<span style="font-size: x-small;">objWriter.Close()</span><br />
<span style="font-size: x-small;">SW.Close()</span><br />
<span style="font-size: x-small;">SR.Close()</span></div>
</div>
</div>
</div>
</div>
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0tag:blogger.com,1999:blog-3729602617262252645.post-3370974878875689072012-09-25T17:35:00.000-07:002012-09-25T17:38:05.738-07:00Tips Gambar bergerak dengan marque dan simple galery photo Untuk membuat gambar bergerak dengan marque (marque image) cukup copas
kode berikut pada tempat dimana image bergerak tersebut akan
dimunculkan.<br />
<br class="Apple-interchange-newline" />
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
<br />
<div class="MsoNormal">
<span style="color: #999999; font-family: Courier New; font-size: xx-small;"><span style="line-height: 14px;"><marquee
onmouseout="this.start()" direction="left" align="center"
scrollamount="2" onmouseover="this.stop()" width="100%"
height="100"><img src="filegambar" alt=""/> </marquee></span></span></div>
<br />
<br />
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
align bisa diganti dengan left atau right, sebagai posisi awal gambar
akan bergerak, dan direction bisa diganti dengan up, down, right sebagai
arah gambar akan bergerak.<br />
<br />
<a href="http://www.blogger.com/blogger.g?blogID=3729602617262252645" name="more"></a><br />
<a name='more'></a><br /><br />
<br />
Untuk membuat galery photo sederhana mode tambahkan kode css berikut:<br />
<br class="Apple-interchange-newline" />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
<span style="font-size: xx-small;">.hoverbox</span><br />
<span style="font-size: xx-small;">{</span><span style="font-size: xx-small; white-space: pre;"> </span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>float:center;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>width: 725px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>height: 510px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>cursor: default;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>list-style: none;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox a</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>cursor: default;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox a .preview</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>display: none;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox a:hover .preview</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>display: block;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>position: absolute;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>top: -30px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>left: -30px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>z-index: 1;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox img</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>background: #fff;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-color: #aaa #ccc #ddd #bbb;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-style: solid;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-width: 1px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>color: inherit;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>padding: 2px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>vertical-align: top;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>width: 100px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>height: 75px;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox li</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>background: #eee;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-color: #ddd #bbb #aaa #ccc;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-style: solid;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-width: 1px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>color: inherit;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>display: inline-table;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>float: left;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>margin: 3px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>padding: 5px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>position: relative;</span><br />
<span style="font-size: xx-small;">}</span><br />
<span style="font-size: xx-small;"><br /></span>
<span style="font-size: xx-small;">.hoverbox .preview</span><br />
<span style="font-size: xx-small;">{</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>border-color: #000;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>width: 400px;</span><br />
<span style="font-size: xx-small;"><span class="Apple-tab-span" style="white-space: pre;"> </span>height: 300px;</span><br />
<span style="font-size: xx-small;">}<span class="Apple-tab-span" style="white-space: pre;"> </span></span><br />
<br />
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
lalu pada html masukan kode berikut<br />
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
<div data-mce-style="text-align: justify; font-size: 10px;">
<div style="margin-bottom: 24px;">
</div>
</div>
<div>
<span style="font-size: xx-small;"><ul class="hoverbox"></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/2.jpg" alt="description" /><img src="img/fo/2.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/3.jpg" alt="description" /><img src="img/fo/3.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/4.jpg" alt="description" /><img src="img/fo/4.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/5.jpg" alt="description" /><img src="img/fo/5.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/6.jpg" alt="description" /><img src="img/fo/6.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/7.jpg" alt="description" /><img src="img/fo/7.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/8.jpg" alt="description" /><img src="img/fo/8.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/9.jpg" alt="description" /><img src="img/fo/9.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"><li></span></div>
<div>
<span style="font-size: xx-small;"><a href="#"><img
src="img/fo/10.jpg" alt="description" /><img src="img/fo/10.jpg"
alt="description" class="preview" /></a></li></span></div>
<div>
<span style="font-size: xx-small;"></ul></span></div>
<div>
</div>
<div>
<span style="font-size: xx-small;">Semoga bermanfaat buat sobat Tips Jaringan </span></div>
<br />
<hr size="1" style="background-color: #e7e7e7; border: 0px; clear: both; cursor: default; font-size: 12px; height: 1px; line-height: 1.5; margin-bottom: 24px;" />
Anonymoushttp://www.blogger.com/profile/10506042142020491413noreply@blogger.com0