vasl kardane ye text be ye bakhshi az source ye page (vb6)

Code:

dim ehem as string
ehem = mid(data,instr(data,"qesmate1") +1)
ehem = left(ehem,instr(ehem,"qesmate2") -1)

DARK wrote:

Code:

dim ehem as string
ehem = mid(data,instr(data,"qesmate1") +1)
ehem = left(ehem,instr(ehem,"qesmate2") -1)

 da6 ino baladam soale mano motavaje nashodi
man mikham masalan ba command_click ya form_load yejayi az source ye page biad tuye texte softam,
manzuram az 'page' urli ke ba webbrowser baz kardam
masalan tuye source page in  sam (sam) biad tuye Textbox
mamnun misham rahnamayim k.o.nid

mc dadash na vb6 ro mikhastam age kesi balade.

dustan age kesi balade rahnamayi k.o.ne, karam gire!!

Code:

Private Sub Form_Load()
Web.Navigate ("http://translate.google.com/#en/fa/sina")
End Sub
Private Sub Command2_Click()
On Error Resume Next
With Web
Text1.Text = .Document.All("source").Value
End With
End Sub

fek konam manzoret in bashe
age nist yekam vazehtar tozih bede

q(-_o)p@n.c