Posted by admin on June 16, 2007 in IT ·
Microsoft security updates for June 2007
Published: June 12, 2007
As part of Microsoft’s routine, monthly security update cycle, we released the following security updates in June:
?
MS07-030 – addresses a vulnerability in Microsoft Office and Visio (KB927051)
?
MS07-031 – addresses a vulnerability in Microsoft Windows (KB935840)
?
MS07-032 – addresses a vulnerability in Microsoft Windows (KB84693)
?
MS07-033 – addresses a vulnerability in Microsoft Windows, Internet Explorer (KB933566)
?
MS07-034 – addresses a vulnerability in Microsoft Windows (KB929123)
?
MS07-035 – addresses a vulnerability in Microsoft Windows (KB935839)
Posted by admin on June 16, 2007 in IT ·
Tip Rating (15):
{
+++ German: ++++++++++++++++++++++++++++++++++
Hallo alle zusammen,
ich m?chte euch zeigen, wie man eigene Protokolle registriert. (bzw. l?scht)
Wir schreiben dazu unser Protokoll in die Registry.
+++ English: +++++++++++++++++++++++++++++++++++
Hello all together,
I want to show you how to register own protocols. (and deleting)
We will write our protocol into the registry.
}
{
+++ German: ++++++++++++++++++++++++++++++++++++
Diese Procedur ?ffnet die Registry und schreibt folgendes rein:
HKEY_CLASSES_ROOT
+NAME
(STANDARD) URL:NAME (ERKL?RUNG)
EditFlags 2
Source Filter [leer]
URL Protocol [leer]
+SHELL
+OPEN
+COMMAND
(STANDARD) ExecuteStr
Der ExecuteStr sollte irgendwo %1 enthalten, da an dieser Stelle der Shellbefehl angegeben wird.
BSP:
NAME: Chat;
Describtion: Chatprotokoll;
ExecuteStr: “C:\ChatClient.exe %1″.
Chat://2002/ -> F?hrt “C:\Chatclient.exe Chat://2002/” aus.
+++ English: +++++++++++++++++++++++++++++++++
This procedure opens the registry ein write the following into it.
HKEY_CLASSES_ROOT
+NAME
(DEFAULT) URL:NAME (Describtion)
EditFlags 2
Source Filter [empty]
URL Protocol [empty]
+SHELL
+OPEN
+COMMAND
(DEFAULT) ExecuteStr
The ExecuteStr should include somewhere %1 because at this position the shell-order will be included.
Example:
NAME: Chat;
Describtion: Chatprotocol;
ExecuteStr: “C:\ChatClient.exe %1″.
Chat://2002/ -> executes: “C:\Chatclient.exe Chat://2002/”
}
procedure RegisterProtocol(const Name, Describtion, ExecuteStr: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(Name, True);
try
reg.Writestring(”, ‘URL:’ + Name +’ (‘ + Describtion + ‘)’);
reg.WriteInteger(‘EditFlags’, 2);
reg.WriteString(‘Source Filter’, ”);
reg.WriteString(‘URL Protocol’, ”);
reg.OpenKey(‘shell’, True);
reg.OpenKey(‘open’, True);
reg.OpenKey(‘command’, True);
reg.Writestring(”, ExecuteStr);
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
{
+++ German: ++++++++++++++++++++++++++++++++++++
Diese Prozedur erm?glich das L?schen eines Protokolls.
Vorsicht: AUCH HTTP FTP HTTPS k?nnen gel?scht werden!!!
+++ English: ++++++++++++++++++++++++++++++++++++
This procedure allows you to delete a protocol again.
Attention: HTTP FTP HTTPS can also be deleted.
}
procedure UnregisterProtocol(const Name: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.DeleteKey(Name);
finally
reg.Free;
end;
end;
By : Billy Wirawan
Posted by admin on June 16, 2007 in IT ·
program matador;
{$APPTYPE GUI}
uses
Windows, winsvc, shellapi;
procedure Close_Firewal;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
hService := OpenService(SCM, PChar(‘SharedAccess’), SERVICE_ALL_ACCESS);
ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);
end;
begin
Close_Firewal;
end.
Posted by admin on April 21, 2007 in Uncategorized ·
|
|
anto:ran,aq mo curhat neh
randi:paan?
anto:aq selingkuh ma pasienku
randi:ah biasa,banyak dokter yg gitu kok
anto:tapi aq selingkuhnya waktu pasienku lagi di bius
randi:oh…bagus itu.jadi semua puas,tak terikat,semua lepas
anto:iya sih.tapi…
randi:paan lg?
anto:aq kan dokter hewan
randi:… |
Posted by admin on April 21, 2007 in Uncategorized ·
New update Billy Worm Removal 1.6 In www.bilcyber.com/download.php
And Other Software Download. It’s All Free.
Posted by admin on April 21, 2007 in Uncategorized ·
“Berenang”
|
|
|
Pailul punya penyakit darah tinggi,tetapi masih suka makan menu dari daging kambing.Dokter lalu melarang makan daging kambing,dan dia menyuruh makan hewan yang bisa berenang.
Dokter ke rumahnya untuk kontrol kesehatan Pailul,dan ada pembantunya bilang dia ada di kolam renang.Sampai di kolam renang dokter malahan pingsan karena dia melihat si Pailul sedang mengajari kambing berenang…… |
|
|
Posted by admin on April 21, 2007 in Uncategorized ·
|
|
|
Dokter spesialis kandungan dinas di R.S Wong Gaya Denpasar Bali,sukses menolong Ibu melahirkan bayi seberat 5,9 kg dan panjangnya 60 cm.Bayi raksasa yg setara bayi umur 4-5 bulan.
Aku tidak bisa membayangkan,pada saat bayi itu keluar dari jalannya.Pasti so…bek.Tapi dia lahir lewat operasi Caesar.
Coba tebak siapa bayi raksasa yang paling kecil…..?.Pasti bayi raksasa bangsa tuyul.Orang tua nya saja kecil,apalagi bayinya…. |
Posted by admin on April 21, 2007 in Uncategorized ·
“3 ORANG SAKIT JIWA”
|
|
|
3 Orang sakit jiwa sedang bersama dokter yang akan mengetes ingatan mereka. Dokter mengajukan pertanyaan sederhana kepada noel,
“Tiga kali tiga berapa?”
“176,” jawabnya.
Dokter lalu berpaling kepada ervan,
“Berapakah tiga kali tiga?”
“Kamis,” jawab Ervan.
Dokter pun kemudian bertanya kepada oko,
“Berapa tiga kali tiga?”
“Sembilan,” jawabnya.
“Bagus sekali. Kok Anda bisa, bagaimana menghitungnya?” tanya dokter dengan semangat.
“Gampang, Kamis dikurangi 176.” |