Cari Di Blog Ini

2014-03-13

Cara membuat image png dengan button di visual basic 6.0

samfxpowermanager.blogspot.com

Cara membuat image png dengan button di visual basic 6.0

Halo gan!
Pada post ini saya mendapatkan request dari agan agan :)
Tidak panjang lebar lihat saja screenshot dan klik button yang sudah saya sediakan


Bagai mana? tertarik? silahkan download filenya

Keterangan File :
Size : 181 KB
Nama File : PNG_Project_Button Extensi File : DotOCX
Nama Full : PNG_Project_Button.OCX ( OCX huruf kecil hehe )




Pembuat : M.Sammy Budiarjo
Publisher : SamFX Power Manager. Inc
Link Download :
http://www.4shared.com/file/q69PCSicce/PNG_Project_Button.html

Terima Kasih telah berkunjung :D

2014-03-08

Cara membuat form transparan dengan scroll di vb 6.0

samfxpowermanager.blogspot.com

 

Cara membuat form transparan dengan scroll di vb 6.0


Capek yach membuat launcher dengan Visual Basic 6.0 dari pada pakai Autoplay Media Studio
Jika di-compile error "Not valid win32" katanya, kalau VB 6.0 tidak, banyak rahasianya :)
OK let's go men kita buka VB 6.0-nya seperti biasa, pilihlah selalu Standart EXE

The Materials Needed :) / Silahkan anda terjemahkan dengan Google Translete :
Siapkan Kopi susu hangat :)
Winamp agar otak tetap segar, ingat men jangan yang sembrono musiknya, yang kalem saja :D
Yang diatas hanya basa basi saja gan, hehehe kalau ingin yach gak apa apa :)
Bahan asli yang kita butuhkan :

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean

Const LWA_BOTH = 3
Const LWA_ALPHA = 2
Const LWA_COLORKEY = 1
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000

Dim iTransparant As Integer

Sub MakeTransparan(hWndBro As Long, iTransp As Integer)
    On Error Resume Next

    Dim ret As Long
    ret = GetWindowLong(hWndBro, GWL_EXSTYLE)

    SetWindowLong hWndBro, GWL_EXSTYLE, ret Or WS_EX_LAYERED
    SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA
    Exit Sub

End Sub
Code module, pertama buat module dan masukkan code diatas

Pili salah satu gan, yang Hor atau yang Ver?

Code Hornya gan, kalau ingin pakai yang Ver yach tinggal ganti saja text "HScroll1" menjadi "VScroll2"

Sudahlah project kita, mari lihat hasilnya :

Transparankan? 
Selesai kita tiggal minum kopi susunya nih hehehe, hangatnya nih minuman, agar lebih mantab tambahin saja jahe :)
saya lupa ini setting yang harus dipakai pada Hor atau Vernya :

Pada kolom Name ganti saja boleh :)

Sekian terima kasih telah berkunjung :)

2014-03-04

Cara membuat quote scroll dan non scroll dengan mudah

samfxpowermanager.blogspot.com

 

Cara membuat quote scroll dan non scroll dengan mudah


Halo gan! kali ini saya akan memberi contoh cara membuat quote tapi tak ada tanda " besar melainkan berbentuk kotak :)
langsung saja menuju langkahnya :)

Bahan bahan yang di perlukan :
1. Harus lagi membuat posting blog anda
2. Untuk orang tua siapkan kopi :) - untuk anak kecil siapkan makanan ringan :D
3. Winamp agar tidak bosan :) musiknya "Yngwie J. Malmsteen's F - Deja Vu" pernah dengar lagunya gak gan?

Ok let's go men/boy :)
1. Buat posting atau edit postnya saja :)
2. Copy code dibawah ini untuk posting baru ( ingat pakai mode HTML bukan Compose ) :

<div style="border: 1px solid green; height: 50px; overflow: auto; padding: 5px; text-align: left; width:612;">
Masukkan text anda disini</div>

Jika posting yangg mau di edit :

Copy code dibawah ini dan paste di atas text yang dahulu anda ketik
<div style="border: 1px solid green; height: 50px; overflow: auto; padding: 5px; text-align: left; width:612;">
Copy text </div> di tempat text terakhir

3. Jadilah jika tidak percaya ada diatas contohnya, tapi bukan gambar melainkan kotak berwarna hijau :)

Contoh yang diatas tidak ada scrollnya, jika ingin memberi scroll silahkan pada code ( height: 50px )
Ganti 50nya menjadi 30 atau nilai apa saja, tergantung jika text yang didalamnya panjang maka akan mengeluarkan scoll sendiri :)

Code : Pada kata "border: 1px" adalah ketebalan garis, "solid green" adalah warna garis/border, "height: 50px" tingginya quote (Vertically) dan "width:612" adalah panjangnya quote (Horizontally)

Terima kasih telah datang
Salam dari CSNE Dev

Cara membaca dan membuat file INI di Visual Basic 6.0

samfxpowermanager.blogspot.com

Cara membaca dan membuat file INI di Visual Basic 6.0


Selamat Pagi, Siang, Sore, Malam :)
Kali ini saya akan mengajarkan bagaimana cara membuat file INI dan cara membacanya
Mari kita buka VB 6.0-nya
Setelah terbuka, pilih Standart EXE
Jika sudah, akan otomatis membuat form
Lalu buat Module, klik Project lalu Add Module
Jika module sudah keluar kita paste code di bawah ini, agar post ini tidak panjang lebar saya menaruh di dalam kotak hijau :) :

Option Explicit

Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String)
Dim NF As Integer
Dim Temp As String
Dim LcaseTemp As String
Dim ReadyToRead As Boolean
AssignVariables:
        NF = FreeFile
        ReadIniValue = ""
        KEY = "[" & LCase$(KEY) & "]"
        Variable = LCase$(Variable)
EnsureFileExists:
    Open INIpath For Binary As NF
    Close NF
    SetAttr INIpath, vbArchive
LoadFile:
    Open INIpath For Input As NF
    While Not EOF(NF)
    Line Input #NF, Temp
    LcaseTemp = LCase$(Temp)
    If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False
    If LcaseTemp = KEY Then ReadyToRead = True
    If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then
        If InStr(LcaseTemp, Variable & "=") = 1 Then
            ReadIniValue = Mid$(Temp, 1 + Len(Variable & "="))
            Close NF: Exit Function
            End If
        End If
    Wend
    Close NF
End Function

Public Function WriteIniValue(INIpath As String, PutKey As String, PutVariable As String, PutValue As String)
Dim Temp As String
Dim LcaseTemp As String
Dim ReadKey As String
Dim ReadVariable As String
Dim LOKEY As Integer
Dim HIKEY As Integer
Dim KEYLEN As Integer
Dim VAR As Integer
Dim VARENDOFLINE As Integer
Dim NF As Integer
Dim X As Integer
AssignVariables:
    NF = FreeFile
    ReadKey = vbCrLf & "[" & LCase$(PutKey) & "]" & Chr$(13)
    KEYLEN = Len(ReadKey)
    ReadVariable = Chr$(10) & LCase$(PutVariable) & "="
EnsureFileExists:
    Open INIpath For Binary As NF
    Close NF
    SetAttr INIpath, vbArchive
LoadFile:
    Open INIpath For Input As NF
    Temp = Input$(LOF(NF), NF)
    Temp = vbCrLf & Temp & "[]"
    Close NF
    LcaseTemp = LCase$(Temp)
LogicMenu:
    LOKEY = InStr(LcaseTemp, ReadKey)
    If LOKEY = 0 Then GoTo AddKey:
    HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[")
    VAR = InStr(LOKEY, LcaseTemp, ReadVariable)
    If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable:
    GoTo RenewVariable:
AddKey:
        Temp = left$(Temp, Len(Temp) - 2)
        Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue
        GoTo TrimFinalString:
AddVariable:
        Temp = left$(Temp, Len(Temp) - 2)
        Temp = left$(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid$(Temp, LOKEY + KEYLEN + 1)
        GoTo TrimFinalString:
RenewVariable:
        Temp = left$(Temp, Len(Temp) - 2)
        VARENDOFLINE = InStr(VAR, Temp, Chr$(13))
        Temp = left$(Temp, VAR) & PutVariable & "=" & PutValue & Mid$(Temp, VARENDOFLINE)
        GoTo TrimFinalString:
TrimFinalString:
        Temp = Mid$(Temp, 2)
        Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0
        Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf)
        Loop
        Do Until right$(Temp, 1) > Chr$(13)
        Temp = left$(Temp, Len(Temp) - 1)
        Loop
        Do Until left$(Temp, 1) > Chr$(13)
        Temp = Mid$(Temp, 2)
        Loop
OutputAmendedINIFile:
        Open INIpath For Output As NF
        Print #NF, Temp
        Close NF
End Function

Nah kemudian buat dua Text Box dan dua Command Button
Kemudian isi Command Button yang pertama dengan code di bawah ini :

Private Sub Command1_Click()
WriteIniValue App.Path & "\Test.ini", "Test Konfigurasi File INI", "RW", Text1.Text
Unload Me
End Sub

Listing ini untuk membuat file INI dan isinya
Dan masukkan code dibawah ini di Command Button yang kedua

Private Sub Command2_Click()
Text2.Text = ReadIniValue(App.Path & "\Test.ini", "Test Konfigurasi File INI", "RW")
End Sub

Sudahlah project kita :)
Sekarang tinggal kita Run, caranya tekan F5 pada keyboard
Jika sudah, isi Text Box1 terserah anda, misal : Test membuat dan membaca file INI pada VB 6.0
Lalu klik Command Button yang kesatu, kemudian form akan mati
Tekan F5 lagi dan klik Command Button yang kedua dan isinya sama dengan : Test membuat dan membaca file INI pada VB 6.0
Rumit bukan? menurut saya tidak karena saya sudah sering :)
Jika bermanfaat doakan saya ya agar sukses :)
Bila ingin Copy post ini silahkan cantumkan sumbernya :
( samfxpowermanager.blogspot.com/2014/03/cara-membaca-dan-membuat-file-ini-di-visual-basic-6.0.html )
Selamat berkarya! :)

2014-03-03

Cara menambahkan efek suara pada Visual Basic 6.0

samfxpowermanager.blogspot.com

Cara menambahkan efek suara pada Visual Basic 6.0

Halo gan!
Saya sedang developing CSNE, tapi bukan gamenya melainkan Launchernya
Launcher saya seperti gambar dibawah ini :


Baguskan? hehe... jika ingin lihat lebih bagus silahkan diklik :)

Langkah :
1. Buka visual basicnya lalu pilih Standart EXE
2. Buat 1 Command button, mudahkan :)
3. Klik 2 kali Command buttonnya lalu clear semua text yang ada kemudian isi dengan text di bawah ini :

############################# Listing #############################

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public SystemLoginSucceeded As Boolean
       
Public Function PlayWaveFile(strFileName As String, Optional blnAsync As Boolean) As Boolean
    Dim lngFlags As Long
    Const snd_sync = &H0
    Const snd_Async = &H1
    Const snd_Nodefault = &H2
    Const snd_Filename = &H20000
    lngFlags = snd_Nodefault Or snd_Filename Or snd_sync
    If blnAsync Then lngFlags = lngFlags Or snd_Async
    PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)
End Function

Private Sub Command1_Click()
retval = PlayWaveFile(App.Path & "\Nama File .Wav yang anda punya", True)
End Sub

###################################################################

4. Sudahlah project kita :)
5. Bagai mana menjalankannya? tekan saja tombol F5 pada keyboard

Semoga bermanfaat!
Jika ingin CoPas alias Copy Paste harap cantumkan sumbernya :
( samfxpowermanager.blogspot.com/2014/03/cara-menambahkan-efek-suara-pada-visual-basic-6.0.html )

Selamat berkarya gan! :)
Terima kasih telah berkunjung.

2014-02-26

Point Blank Esport Weapon For CS 1.6

samfxpowermanager.blogspot.com

Point Blank Esport Weapon For CS 1.6


Selamat Malam! ( 02:00:00 PM hehe )
Pada malam ini saya baru buat senjatanya, tapi saya hanya memperlihatkan screenshotnya saja
Nih gan screenshot dan keterangannya :



L115A1 High Detail Texture
 Screenshot :
Sedang Diam
Sedang Isi Peluru

Keterangan :
Masih Tahap Pembuatan
Texture Real PB
( Convertan Dari PB Offline Hehe )
Special Thanks :
Allah S.W.T
Keluarga Saya
Photoshop CS3 ( Texture HD )
Dan Lain Lain

Kriss SV High Detail Texture
Screenshot :
Single Mode
Dual Mode
Keterangan :
Masih Tahap Pembuatan
Texture Real PB
( Convertan Dari PB Offline Hehe )
Special Thanks :
Allah S.W.T
Keluarga Saya
Photoshop CS3 ( Texture HD )
Dan Lain Lain

Dan Saya Akan Membuat Yang Lain :)
Jika Ingin Share Ulang Sertakan Creditnya :
Mohon Kritik Dan Sarannya Dan Tentunya Jangan Leching, Leching Punya Orang Dosa

2014-02-17

Cara Membuat File Compress Exe Dengan WinRAR

samfxpowermanager.blogspot.com

Cara Membuat File Compress Exe Dengan WinRAR

 

Halo, selamat pagi!
Kali ini saya memberikan contoh cara membuat file yang di compress tapi berbentuk EXE bukannya RAR
Lihat Screenshotnya terlebeh dahulu dan langsung saja kepembahasannya :


Setelah di klik tombol Accept lalu lihat gambar lagi


Menarik? silahkan melanjutkan tutorialnya :) :

1. ) Pilih file yang akan dijadikan bahan tutorial


2. ) Kemudian lihat gambar saja terus sampai selesai :)

Pilih Cara Pertama Atau Cara Kedua, Setelah Itu Klik Tab Advanced Diatas Text 1 Berwarna Merah

Setelah Anda Klik SFX options... akan keluar jendela bernama Advanced SFX Options

Silahkan Setting Sendiri Yang Otomatis Ketempat Extracting :)

1. Judul File Setelah Mengeklik tombol Accept
2. Komentar Yang Anda Berikan Kepada User
3. Logo SFX, Biasanya Hanya Di Samping Kiri Dan Berukuran ( 93 X 302 )
4. Icon SFX, Biasanya Setelah Mengeklik Tombol Accept Akan Keluar



1. Judul Pertama SFX Keluar2. Kotak Komentar Yang Anda Berikan Kepada User

3. ) Sudah, tinggal Klik OK

4. ) Mari Kita Lihat Pada Tab Comment

Wah Ternyata Berbeda Ya, Tidak Seperti Komentar Biasa, Ya Jelas, Kitakan Memakai Program SFX Dari WinRAR

5. ) Setelah Itu Kita Klik OK, Dan Jadilah Progam Extractor Kita :)

Ini Dia Screenshotnya :

Icon Kita :)

Jika Yang Sudah Jadi Ada Dua Screenshot Diatas :)

Saya Lupa, Ini Yang Kita Butuhkan :
WinRAR Versi 3.51 Jika Versi Yang Lebih Tinggi Sama Saja Cuman Tempatnya Berbeda

Selamat bersenang senang :)

2014-02-15

Cara Menambahkan Gambar Pada Judul Blog

samfxpowermanager.blogspot.com

Cara Menambahkan Gambar Pada Judul Blog


Nah saya share lagi nih, semoga bermanfaat buat agan agan yang kunjung kisini
Sebagai contoh lihat diatas blog saya, bertulisan begini :


nah seperti tulisan tapi gambar, jika ingin seperti saya ke TKP dulu donk :)

1. Buka web disamping yang saya sudah blok dan di tanda kutip : (" http://www.funnylogo.info/extrathemes.asp ")

2. Lihat gambar di bawah ini sampai selesai ( Maaf gambarnya jika tidak bagus
apa boleh buat, saya tidak pakai Firework tetapi pakai Paint aplikasi default Windows XP ) :

Masukan text anda di kolom tersebut

Pilih gaya yang diterapkan pada text ( Setidaknya ada 27 gaya )

Pilih warna text

Klik tombol diatas ( Maksudnya pada Step 3 Diatas, Dibawah Step ada tombol tersebut )

(: Result / Hasil :)
3. Jika sudah jadi, klik kanan pada gambar yang anda buat, Save Image As ( Judul terserah anda )

4. Buka blog anda, login Tata Letak, Judul blog anda (Header), klik text Edit

5. Akan keluar windows lagi dengan judul :
( Blogger: Nama Blog Anda - Mengonfigurasi Header - Mozilla Firefox " Jika pakai Firefox :) " )

6. Klik tombol "Browse...", pilih gambar yang anda simpan tadi, lali Klik tombol radio ( Yang dimaksud adalah tombol ● seperti itulah )

7. Klik radio dengan text (  )

8. Klik tombol Simpan dengan warna Orange :)

9. Enjoy! lihatlah blog anda :)

Semoga bermanfaat, terima kasih telah berkunjung :)

2014-02-12

Cara Menambahkan Quota Internet Tri

samfxpowermanager.blogspot.com


Cara Menambahkan Quota Internet Tri


Hehe... kali ini saya memberi contoh buat iseng-iseng dengan teman anda :)

Apakah ini ? :

AON 1 Bulan 50 MB Menjadi 20000 MB / 20 GB

Hehe tertarik? ini hanya sekedar iseng, ingat, bukan asli  tapi iseng ya :)
Caranya sebagai berikut :

1. Buka web tri ( http://internet.tri.co.id )
2. Klik kanan pada object yang akan kita ubah buat iseng, misal saya tadi 30 tidak baru tak apa apa kok kan cuman sekedar iseng :)


3. Jika sudah klik kanan, dan klik seperti pada gambar

  

4. Kemudian edit, tidak mengerti? lihat gambar lagi


5. Dan... Jadilah iseng kita! dan coba refresh web tadi dengan menekan tombol ( F5 ) pada keyboard, pasti berubah pada asalnya, hehe, ini cuman iseng ya...

Selamat menjahili teman kita! :)

2014-02-04

Real Effect Killer Point Blank

samfxpowermanager.blogspot.com

Real Effect Killer Point Blank

Nah ini yang di tunggu tunggu :)
Point Blank Real Effect Killer

Credit :
Counter Strike Federation
 
Silahkan klik link di bawah ini gan jika ingin download :)
Karena saya tidak sedang main CSPB eh CSPB CSNE gan :)
Jika saya internetan sambil main game terasa ngeleg alias macet macet :(

[ Via 4Shared ]

Selamat bermain seperti PB asli :)

2014-01-30

Cara Menambahkan Gambar, Video Pada Komentar Blog

samfxpowermanager.blogspot.com


Cara Menambahkan Gambar, Video Pada Komentar Blog

 

huh! sudah lama tidak posting, bingung posting apa! tapi kali ini saya akan posting di atas :)
yap! menambahkan image atau movie pada blog :) ( gaya sedikit gan )
tutor ini akan meng-edit blog anda dengan cara html :

1. Simpan Template
Login ke blog anda, pilih blog :), klik template dan lihat gambar
( Klik untuk perbesar )
2. Menambahkan kode pada bagian atas (" ]]></b:skin> ")
Klik Tutup pada gambar diatas dan klik Edit HTML
( Klik untuk perbesar )
3. Cari Text (" ]]></b:skin> ")
Sekarang silahkan cari text  " ]]></b:skin> " tanpa tanda kutip ( " )
( Klik untuk perbesar )
Pada gambar di atas ada dua panah yang di bawah text di atas tadi (" ]]></b:skin> ") bosan mengulang lagi, apa boleh buat? :)
dan pada panah di atas kita tambahkan dengan text berikut :

( Listing )


Blogger templates

Bermain Main Dengan Registy Windows (2) [Show]
Cara menjadikan windows xp sp2 menjadi xp sp3
Cara membuat aplikasi sederhana dengan file reg

Cara Curang Bermain Game (1) [Show]
Download Cheat Engine V6.3

Counter Strike 1.6 (16) [Show]
Download Character Point Blank Untuk CS 1.6
Download Counter Strike Background Maker
Cara Meng-Edit Text CS 1.6
Cara Membuat Map CS 1.6 100% Mudah
Cheat CS 1.6 No Steam
Download Skin Knife Untuk CS 1.6 No Steam
Cara Mengganti Nama Character CS 1.6 No Steam
Cara Bermain Counter Strike 1.6 Agar Pintar
Download Senjata XM1014 Untuk CS 1.6 No Steam (My Skin)
Download WH Untuk CS 1.6
(My Project Created With VB6.0)
Cara Mengubah Counter Strike Menjadi Point Blank 1000% Work
(Tetapi Banyak Orang Yang Gak Percaya)
Download Character Super Hero Untuk CS 1.6
Real Effect Killer Point Blank
Point Blank Esport Weapon For CS 1.6

Developer Application (2) [Show]
Download Microsoft Visual Studio 6.0 Professional Edition Full
Download Microsoft Visual Studio 6.0 Enterprise Edition Full 97.6 MB

Google Mail (2) [Show]
Cara Membuat Akun Google
Cara Menghapus Akun Gmail (Google)

Internet Download Manager (2) [Show]
Download IDM 6.01 Beta Version
Cara Membuat IDM Menjadi Ngebut Download (Work For Me)

Linkin Park (1) [Show]
Download Linkin Park Living Thing Full

Old Games (1) [Show]
Download Hamsterball Full (Include Cheat Code)

Skin Windows (2) [Show]
Download Skin WMP Bertema Alienware
Download Gatget Sidebar Windows 7 Ke Windows XP

Transformers (2) [Show]
Download Transformers The Game RIP Version
Cheat Transformers The Game

Tutorial Blogspot (8) [Show]
Cara Membuat Animasi Pengintai Di Blog
Cara Membuat Gatget Spiderman Di Blog
Cara Mudah Untuk Membuat Link Aktif Pada Komentar Blog
Cara Membuat Kotak Dialog Saat Membuka Blog
Cara Membuat Label Kategory Di Blogspot
Cara Menambahkan Gambar, Video Pada Komentar Blog
Cara Menambahkan Gambar Pada Judul Blog
Cara Membuat Quote Scroll Dan Non Scroll Dengan Mudah

Tutorial Game (1) [Show]
Cara Membuat Trainer Dengan Cheat Engine 6.3

Tutorial Internet (4) [Show]
Dua Trik Internet Gratis Three 3 November 2012
Cara Mendownload Di 4Shared Ketika Diklik Ada Tulisan Link File Yang Anda Minta Tidak Berlaku
Cara Cek Kuota Internet 3
Cara Menambahkan Quota Internet Tri

Tutorial WinRAR (1) [Show]
Cara Membuat File Compress Exe Dengan WinRAR

Visual Basic 6.0 Tutorial's (3) [Show]
Cara Membuat Injector DLL Dengan Visual Basic 6.0
Cara Menambahkan Efek Suara Pada Visual Basic 6.0
Cara Membaca Dan Membuat File INI Di Visual Basic 6.0
Cara Membuat Gambar PNG Ke Button Di Visual Basic 6.0