Ku te shkarkoj program/windows,instalimi,serializimi,cinstalimi,perdorimi programeve.

[benseven11]

www.trackerv3.com program Tracker eshte falas.Te programi klikon edit/find Tek Find pasi ke futur emrin e programit ne fushen e search-it ai mund te kerkoje gjeje dhe grupoje gjithe skedaret qe i perkasin programit.
Program tjeteri ngjashem eshte Wilbur 2.1.Shume i fuqishem ne kerkim dhe i shpejte per te gjetur skedaret dhe programe brenda ne kompjuter http://wilbur.redtree.com/
Per ta kaluar programin ne nje kompjuter tjeter ne internet mund te perdoresh programin ACE FTP 3
tek kjo faqe http://freeware.aceftp.com/
ose Programin Tight VNC www.tightvnc.com
Per kalim programi nga nje compjuter i vjeter ne nje te ri mund te perdoresh programin qe ka vete windowsi File and settings transfer wizard
http://www.windows-help.net/WindowsXP/howto-01.html

[Shiu]

Nga RGB mund te kthesh automatikisht ne Grayscale, ndersa nga Grayscale nuk ka shansa te kthesh automatikisht ne RGB.

Kjo thjesht nga fakti se Grayscale (8-bit) permban 256 nuanca gri dhe nuk ka softuer qe mund te 'supozoje' se nga cila ngjyre eshte perfituar pixeli me nuance gri. Vlere te njejte te intensitetit ne paleten Grayscale japin mijera nuanca qe aspak nuk i ngjajne njera tjetres.

Pra, grayscale (8-bits) bazohet ne 256 intensitete te ngjyres gri, qe ne procesin e konvertimit RGB->Grayscale perfitohen nga intensitet e 16 milion ngjyrave. Prandaj, konvertimi Grayscale->RBG do te nenkuptonte riperfitimin e 16 milione ngjyrave (256x256x256) nga vetem 256 intensitete, dic qe eshte e pamundur.

Ashtu sic u tha edhe nga nje parafoles, menyra e vetme per ta bere kete eshte menyra manuele, ky syri yt do te vleresoje se ciles zone te fotografise grayscale, cfare nuance nga paleta RGB t'i japesh.

Ka softuere qe perdoren neper studiot filmike per ngjyrosjen e filmave te vjeter bardh e zi, mirepo rezultati perfundimtar kurre nuk eshte i perkryer dhe nuk leshohet ne treg pa ia dhene artisti doren e fundit.

Menyra se si une i perfitoj fotot RGB nga ato grayscale eshte me kthimin e Grayscale ne Duotone per ta perfituar tonin e fytyres, e perpunimi i metejme behet me prerjen e detajeve dhe vendosjen e tyre ne 'layer' te vecante (syte, buzet, floket) ku manipuloj me vleren e 'hue' dhe 'saturation', pra fotografine e ndaj ne fragmente.

[chessmaster]

Pershendetje te gjitheve...
Ne fakt une doja te beja nje pyetje pak si te cuditshme. A ka ne rrjet program chati te vogel qe eshte sa me pak popullor nga gjithe te tjeret,pra jo si ym, msnm, icq apo trillian apo odigo, por nje te thjeshte fare , madje qe te te punoje me lidhje direkte nga ip ne ip ?
Ne qofte se mundni te me ndihmoni faleminderit shume..

[benseven11]

http://www.geocities.com/freedatanow/metr/index.htm
programi quhet Metr v1
--------
Chat program nga
http://www.opferman.net/ klikon software buton te faqja kryesore
Te faqja tjeter qe del e ke ne fund " Chat program1 a"
28kb.zip
-------
Speak freely chat program qe perdoret mes 2 personave vetem me ze
http://www.fourmilab.ch/speakfree/windows/
programi ka edhe skedarin" read html file" qe te ndihmon si
ta punosh

[edspace]

Shiko ketu te gjitha programet e chatit nga download.com
http://download.com.com/3150-2150-0.html?tag=stbc.gp

[Force-Intruder]

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long



Private Sub cmdGjurmo_Click()
If txtIPtjeter.Text = "" Then
MsgBox "Jepni nje IP per ti bere Tracert!", vbCritical
Exit Sub
End If
Shell ("c:\command.com /c tracert " + txtIPtjeter.Text)
If Option1.Value = True Then
kendoje = sndPlaySound("ping.wav", 1)
End If
End Sub

Private Sub cmdMos_Click()
On Error Resume Next
sckLloqe.SendData "_"
If Option1.Value = True Then
kendoje = sndPlaySound("mos.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdLidhu_Click()
On Error Resume Next
If txtPorta.Text < "1" Or txtPorta.Text > "9999" Then txtPorta.Text = "1661"
sckLloqe.Close
sckLloqe.Connect txtIPtjeter.Text, txtPorta.Text
lblProcesi.Caption = "Po lidhet me " + txtIPtjeter.Text + " ne porten nr. " + txtPorta.Text
cmdShkeputu.Enabled = True
cmdPergjo.Enabled = False
cmdLidhu.Enabled = False
On Error GoTo err
err:
If Option1.Value = True Then
kendoje = sndPlaySound("problem.wav", 1)
End If
If txtIPtjeter.Text = "" Then
lblProcesi.Caption = "Miku im, nje telefoni duhet ti dish numrin qe ta telefonosh...keshtu edhe me IP-te. "
Exit Sub
Else
lblProcesi.Caption = err.Description
End If
End Sub

Private Sub cmdKolle_Click()
On Error Resume Next
sckLloqe.SendData "!"
If Option1.Value = True Then
kendoje = sndPlaySound("kolle.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdKuku_Click()
On Error Resume Next
sckLloqe.SendData "@"
If Option1.Value = True Then
kendoje = sndPlaySound("kuku.wav", 1)
End If
txtMesazhi.SetFocus
End Sub



Private Sub cmdZile_Click()
On Error Resume Next
sckLloqe.SendData "&"
If Option1.Value = True Then
kendoje = sndPlaySound("cerr.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdBori_Click()
On Error Resume Next
sckLloqe.SendData "%"
If Option1.Value = True Then
kendoje = sndPlaySound("tyty.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdLoL_Click()
On Error Resume Next
sckLloqe.SendData "~"
If Option1.Value = True Then
kendoje = sndPlaySound("lol.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdPergjo_Click()
On Error Resume Next
cmdLidhu.Enabled = False
cmdPergjo.Enabled = False
cmdShkeputu.Enabled = True
If txtPorta.Text < "1" Or txtPorta.Text > "9999" Then
txtPorta.Text = "1661"
End If
sckLloqe.LocalPort = txtPorta.Text
sckLloqe.Listen
lblProcesi.Caption = "Ne pritje kerkesash per lidhje..."
End Sub

Private Sub cmdPastro_Click()
On Error GoTo kot
mbox = MsgBox("Deshironi ta fshini sesionin e deri tanishem?", vbOKCancel, "Pastrimi i ChatBox-it!")
If mbox = vbOK Then
txtKryesor.Text = ""
txtKryesor.Text = ""
txtMesazhi.Text = ""
txtMesazhi.SetFocus
Exit Sub
End If

kot:
txtMesazhi.SetFocus
Exit Sub
End Sub

Private Sub cmdShkeputu_Click()
On Error Resume Next
Dim kendoje As Long
If Option1.Value = True Then
kendoje = sndPlaySound("uthye.wav", 1)
End If
sckLloqe.Close
cmdLidhu.Enabled = True
cmdPergjo.Enabled = True
cmdShkeputu.Enabled = False
lblProcesi.Caption = "Lidhja eshte e shkeputur - Pergjimi jo aktiv !"
End Sub

Private Sub cmdUaa_Click()
On Error Resume Next
sckLloqe.SendData "="
If Option1.Value = True Then
kendoje = sndPlaySound("ua.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdBam_Click()
On Error Resume Next
sckLloqe.SendData "}"
If Option1.Value = True Then
kendoje = sndPlaySound("bam.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdPop_Click()
On Error Resume Next
If txtPop.Text = "" Then Exit Sub
sckLloqe.SendData ("|" & txtPop.Text)
txtPop.Text = ""
txtMesazhi.SetFocus
End Sub

Private Sub cmdDergo_Click()
On Error GoTo gabim
If txtMesazhi.Text = "" Then Exit Sub
If sckLloqe.State = 0 Then
txtMesazhi.Text = ""
txtMesazhi.SetFocus
Exit Sub
End If
sckLloqe.SendData (txtMesazhi.Text)
txtKryesor.SelStart = Len(txtKryesor.Text)
txtKryesor.SelColor = &HC0FFFF
txtKryesor.SelText = txtMesazhi.Text & vbCrLf
txtMesazhi.Text = ""
txtMesazhi.SetFocus
Exit Sub
gabim:
lblProcesi.Caption = "Keni nje problem...ju lutem, verifikoni konfigurimet !"
txtMesazhi.Text = ""
txtMesazhi.SetFocus
If Option1.Value = True Then
kendoje = sndPlaySound("problem.wav", 1)
Exit Sub
End If
End Sub

Private Sub cmdShpulle_Click()
On Error Resume Next
sckLloqe.SendData "#"
If Option1.Value = True Then
kendoje = sndPlaySound("shpulle.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

[Force-Intruder]

Vazhdon ketu :
###############################

Private Sub cmdSusta_Click()
On Error Resume Next
sckLloqe.SendData "$"
If Option1.Value = True Then
kendoje = sndPlaySound("hop.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdFlm_Click()
On Error Resume Next
sckLloqe.SendData "^"
If Option1.Value = True Then
kendoje = sndPlaySound("flm.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub cmdURL_Click()
On Error Resume Next
If txtURL.Text = "" Then Exit Sub
sckLloqe.SendData ("`" & txtURL.Text)
txtURL.Text = ""
txtMesazhi.SetFocus
End Sub

Private Sub cmdNdihme_Click()
If Option1.Value = True Then
kendoje = sndPlaySound("lol.wav", 1)
End If
frmndihme.Show

End Sub

Private Sub cmdPing_Click()
If txtIPtjeter.Text = "" Then
MsgBox "Jepni nje IP per ti bere Ping!", vbCritical
Exit Sub
End If
Shell ("c:\command.com /c ping -t " + txtIPtjeter.Text)
If Option1.Value = True Then
kendoje = sndPlaySound("ping.wav", 1)
End If
End Sub

Private Sub Form_Load()
kendoje = sndPlaySound("start.wav", 1)
txtIPketu.Text = sckLloqe.LocalIP
txtPorta.Text = "1591"
Option1.Value = True
Check1.Value = 1
SSTab1.Tab = 0
Me.Caption = ".: IP2IP Chat 1.00 - nga Force-Intruder. Miresevini " & sckLloqe.LocalHostName & " !"
End Sub


Private Sub lblEmail_Click()
Ekzekuto "mailto:albania@myself.com"
txtMesazhi.SetFocus
End Sub

Private Sub lblWeb_Click()
Ekzekuto "http://www.fiksfare.8m.com"
txtMesazhi.SetFocus
End Sub

Private Sub cmddil_Click()
On Error Resume Next
sckLloqe.Close
Unload Me
Unload frmndihme

End Sub

Private Sub cmdmin_Click()
On Error Resume Next
Me.WindowState = vbMinimized
End Sub



Private Sub txtKryesor_GotFocus()
txtMesazhi.SetFocus
End Sub

Private Sub txtKryesor_KeyPress(KeyAscii As Integer)
On Error GoTo problem
txtKryesor.SelStart = Len(txtKryesor.Text)
txtKryesor.SelColor = &HC0FFFF
sckLloqe.SendData Chr(KeyAscii)
Exit Sub
problem:
lblProcesi.Caption = err.Description
Resume Next
End Sub


Private Sub sckLloqe_Close()
Dim kendoje As Long
playsound = sndPlaySound("uthye.wav", 1)
lblProcesi.Caption = "Lidhja u mbyll ! IP2IP inaktiv !"
cmdLidhu.Enabled = True
cmdPergjo.Enabled = True
cmdShkeputu.Enabled = False
cmdLidhu.SetFocus
End Sub

Private Sub sckLloqe_Connect()
On Error Resume Next
Dim kendoje As Long
lblProcesi.Caption = "Lidhja u realizua me sukses ! IP2IP eshte gati !"
txtIPtjeter.Text = sckLloqe.RemoteHostIP
cmdLidhu.Enabled = False
cmdPergjo.Enabled = False
cmdShkeputu.Enabled = True
kendoje = sndPlaySound("ok.wav", 1) '
txtMesazhi.SetFocus
End Sub

Private Sub sckLloqe_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Dim kendoje As Long
sckLloqe.Close
sckLloqe.Accept requestID
lblProcesi.Caption = "Lidhja u realizua me sukses ! IP2IP eshte gati !"
txtIPtjeter.Text = sckLloqe.RemoteHostIP
cmdLidhu.Enabled = False
cmdPergjo.Enabled = False
cmdShkeputu.Enabled = True
If Option1.Value = True Then
kendoje = sndPlaySound("ok.wav", 1)
End If
txtMesazhi.SetFocus
End Sub

Private Sub sckLloqe_DataArrival(ByVal bytesTotal As Long)
Dim tekstaktual As String
Dim prurje As String
On Error Resume Next
sckLloqe.GetData prurje
If Mid(prurje, 1, 1) = "`" Then GoTo URL
If Mid(prurje, 1, 1) = "|" Then GoTo mboks
If Mid(prurje, 1, 1) = "~" Then GoTo lol
If Mid(prurje, 1, 1) = "@" Then GoTo kuku
If Mid(prurje, 1, 1) = "!" Then GoTo kolle
If Mid(prurje, 1, 1) = "$" Then GoTo susta
If Mid(prurje, 1, 1) = "%" Then GoTo bori
If Mid(prurje, 1, 1) = "&" Then GoTo zile
If Mid(prurje, 1, 1) = "#" Then GoTo shpulle
If Mid(prurje, 1, 1) = "^" Then GoTo flm
If Mid(prurje, 1, 1) = "_" Then GoTo mos
If Mid(prurje, 1, 1) = "=" Then GoTo uaa
If Mid(prurje, 1, 1) = "}" Then GoTo bam

txtKryesor.SelStart = Len(txtKryesor.Text)
txtKryesor.SelColor = &HFF00&
txtKryesor.SelText = Mid(prurje, InStr(1, prurje, "^") + 1) & vbCrLf
txtKryesor.SelStart = Len(txtKryesor.Text)
Exit Sub
URL:
If Check1.Value = 1 Then
Ekzekuto Mid(prurje, 2, Len(prurje) - 1)
txtMesazhi.SetFocus
Else
End If
Exit Sub
mboks:
MsgBox Mid(prurje, 2, Len(prurje) - 1), vbInformation, sckLloqe.RemoteHostIP & " thote qe..." ' Display the incoming data as a message box.
txtMesazhi.SetFocus
Exit Sub
lol:
If Option1.Value = True Then
kendoje = sndPlaySound("lol.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
kuku:
If Option1.Value = True Then
kendoje = sndPlaySound("kuku.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
kolle:
If Option1.Value = True Then
kendoje = sndPlaySound("kolle.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
susta:
If Option1.Value = True Then
kendoje = sndPlaySound("hop.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
bori:
If Option1.Value = True Then
kendoje = sndPlaySound("tyty.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
zile:
If Option1.Value = True Then
kendoje = sndPlaySound("cerr.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
shpulle:
If Option1.Value = True Then
kendoje = sndPlaySound("shpulle.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
flm:
If Option1.Value = True Then
kendoje = sndPlaySound("flm.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
mos:
If Option1.Value = True Then
kendoje = sndPlaySound("mos.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
uaa:
If Option1.Value = True Then
kendoje = sndPlaySound("ua.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
bam:
If Option1.Value = True Then
kendoje = sndPlaySound("bam.wav", 1)
End If
txtMesazhi.SetFocus
Exit Sub
End Sub

Private Sub sckLloqe_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)
lblProcesi.Caption = Description
txtMesazhi.SetFocus
If Option1.Value = True Then
kendoje = sndPlaySound("problem.wav", 1)
End If
End Sub


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

MOduli : "ekzekutim.bas"

Option Explicit

Public 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)
Public Enum StartWindowState
START_HIDDEN = 0
START_NORMAL = 4
START_MINIMIZED = 2
START_MAXIMIZED = 3
End Enum

Public Function Ekzekuto(sDocName As String, _
Optional ByVal Action As String = "Open", _
Optional ByVal Parameters As String = vbNullString, _
Optional ByVal Directory As String = vbNullString, _
Optional ByVal WindowState As StartWindowState) As Boolean
Dim Reagimi
Reagimi = ShellExecute(&O0, Action, sDocName, Parameters, Directory, WindowState)
Select Case Reagimi
Case Is < 33
Ekzekuto = False
Case Else
Ekzekuto = True
End Select
End Function

[Force-Intruder]

Tani me mbetet te te dergoj vetem formsat dhe ja ju do te kesh programin qe kerkove ne shqip dhe qe mund ti besh cfare te duash......
Pac fat... !

[chessmaster]

Wow shume faleminderit Force-Intruder.
Nuk ka nevoje te me postosh forms. emrat e elementeve jane ne source keshtu qe mund ti bej edhe vete. Sidoqofte faleminderit shume dhe do ta shikoj shume shpejt NATYRISHT DUKE TE DHENE KREDITET. Rrofsh!

[alditirona]

Dua te shkarkoj kete faqe http://www.oup.com/elt/global/products/hway_home/ qe te punoj me pas offline, kam perdorur disa programe te marra nga dowload.com por asnjera nuk e ka zbritur te gjithe faqen.
Nuk e di nese di ndonjeri ndonje menyre ose program per zbritjen e gjith faqes.