Siteden veri çekmek

[blue_life]

@Aqil990

Unicode için diğer örneği, Azerice için bir önceki mesajımdaki örneği kullanabilirsin. Malsef bir önceki örnekte Unicode sorunu autoitten deyil. Googlenin ilgili linki ile desteklenmiyor.

Sen bir gui ve input olsun ve inputa sözleri girince çevirsin mi diyorsun?

Guini Kodaform Designer ile tasarlayıp paylaşırsan yardımcı olurum...

Ayrıca yeni soru sorunca bir önceki mesajını editleme. Yoksa kolay kolay cevap alamazsın. Yeniden mesaj yazki bizler fark edelim...

[Aqil990]

Ben off top olmasin deye editlemisdim, bundan sonra sen dedigin gibi yaparim

Su kodda her shey hazir amma unicode de bashka:

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

$Form1 = GUICreate("Form", 385, 180)

$Input1 = GUICtrlCreateInput("", 56, 56, 249, 21)

$Button1 = GUICtrlCreateButton("Tercume Et", 168, 96, 137, 25)

$Label2 = GUICtrlCreateLabel("ENG AZE", 18, 16, 329, 24)

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$yazimiz=GUICtrlRead($Input1)

$teryazimiz=_GoogleTranslate($yazimiz,"en","az")

GUICtrlSetData($Input1,$teryazimiz)

EndSwitch

WEnd

Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "az")

$Translation = InetRead('http://translate.google.com/translate_a/t?client=t&text=' & $sText & '&hl=en&sl=' & $sFrom & '&tl=' & $sTo)

If @error Then Return SetError(1, 0, 0)

$Translation = StringRegExp(BinaryToString($Translation) , '"(?i)(.*?)"', 3)

If @error Then Return SetError(2, 0, 0)

If StringStripWS($Translation[0],3) = "" Then Return $Translation[2]

Return $Translation[0]

EndFunc ;==>> _GoogleToMsgBox

[Aqil990]

belki son yaziyi gormemissinizdir o yuzden sunu yazdim

[blue_life]

Please register to see this content.

Fazla kasmaya gerek yok! Yukarıdaki profosyonel programı kullan.

Global $BL_LANGUAGES[58][2] = [[57],["af", "Afrikaans"],["sq", "Albanian"],["ar", "Arabic"],["hy", "Armenian"],["az", "Azerbaijani"],["eu", "Basque"],["be", "Belarusian"],["bg", "Bulgarian"],["ca", "Catalan"],["zh-CN", "Chinese"], _
		["hr", "Croatian"],["cs", "Czech"],["da", "Danish"],["nl", "Dutch"],["en", "English"],["et", "Estonian"],["tl", "Filipino"],["fi", "Finnish"],["fr", "French"],["gl", "Galician"],["ka", "Georgian"], _
		["de", "German"],["el", "Greek"],["ht", "Haitian Creole"],["iw", "Hebrew"],["hi", "Hindi"],["hu", "Hungarian"],["is", "Icelandic"],["id", "Indonesian"],["ga", "Irish"],["it", "Italian"], _
		["ja", "Japanese"],["ko", "Korean"],["lv", "Latvian"],["lt", "Lithuanian"],["mk", "Macedonian"],["ms", "Malay"],["mt", "Maltese"],["no", "Norwegian"],["fa", "Persian"],["pl", "Polish"], _
		["pt", "Portuguese"],["ro", "Romanian"],["ru", "Russian"],["sr", "Serbian"],["sk", "Slovak"],["sl", "Slovenian"],["es", "Spanish"],["sw", "Swahili"],["sv", "Swedish"],["th", "Thai"],["tr", "Turkish"], _
		["uk", "Ukrainian"],["ur", "Urdu"],["vi", "Vietnamese"],["cy", "Welsh"],["yi", "Yiddish"]]

Global $LANGUAGE_FROM[2] = ["English", "en"]
Global $LANGUAGE_TO[2] = ["Azerbaijani", "az"]

Global $COMBO_DATA
For $I = 1 To $BL_LANGUAGES[0][0]
	$COMBO_DATA &= $BL_LANGUAGES[$I][1] & "|"
Next
If StringRight($COMBO_DATA, 1) = "|" Then StringRight($COMBO_DATA, 1)

Global $Read_Data, $GET_TEXT
Opt("GUIOnEventMode", 1)
Global $Form1 = GUICreate("Form1", 333, 288, 251, 219)
GUISetOnEvent(-3, "_MenuExit")
Global $Edit1 = GUICtrlCreateEdit("", 0, 0, 329, 121)
GUICtrlSetData(-1, "I go to home")
Global $Edit2 = GUICtrlCreateEdit("", 0, 160, 329, 121)
Global $Combo1 = GUICtrlCreateCombo("", 8, 128, 145, 25)
GUICtrlSetData(-1, $COMBO_DATA, $LANGUAGE_FROM[0])
GUICtrlSetOnEvent(-1, "_Combo_From")
Global $Combo2 = GUICtrlCreateCombo("", 176, 128, 145, 25)
GUICtrlSetData(-1, $COMBO_DATA, $LANGUAGE_TO[0])
GUICtrlSetOnEvent(-1, "_Combo_TO")
GUISetState(@SW_SHOW)


While 1
	$Read_Data = StringStripWS(GUICtrlRead($Edit1), 3)
	If $Read_Data <> "" And $GET_TEXT <> $Read_Data Then
		$GET_TEXT = $Read_Data
		GUICtrlSetData($Edit2, _GoogleTranslate($GET_TEXT, $LANGUAGE_FROM[1], $LANGUAGE_TO[1]))
	EndIf

	Sleep(100)
WEnd

Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ch")
	;Writed BlueLife
	If StringInStr($sText, Chr(32)) Then $sText = StringReplace($sText, Chr(32), "%20")
	If StringInStr($sText, @CR) Then $sText = StringReplace($sText, @CR, "%0D")
	If StringInStr($sText, @LF) Then $sText = StringReplace($sText, @LF, "%0A")
	$Translation = InetRead("http://translate.google.com/translate_a/t?client=english&text=" & $sText & "&hl=en&sl=" & $sFrom & "&tl=" & $sTo)
	If @error Then Return SetError(1, 0, "")
	$Translation = StringRegExp(BinaryToString($Translation, 4), ':"(?i)(.*?)"', 3)
	If @error Then Return SetError(2, 0, "")
	If StringStripWS($Translation[0], 3) = "" Then Return $Translation[2]
	Return $Translation[0]
EndFunc   ;==>_GoogleTranslate

Func _Combo_From()
	Local $Read_LNG = GUICtrlRead($Combo1)
	For $I = 1 To $BL_LANGUAGES[0][0]
		If $BL_LANGUAGES[$I][1] = $Read_LNG Then
			$LANGUAGE_FROM[1] = $BL_LANGUAGES[$I][0]
			$GET_TEXT = ""
			Return
		EndIf
	Next
EndFunc   ;==>_Combo_From

Func _Combo_TO()
	Local $Read_LNG = GUICtrlRead($Combo2)
	For $I = 1 To $BL_LANGUAGES[0][0]
		If $BL_LANGUAGES[$I][1] = $Read_LNG Then
			$LANGUAGE_TO[1] = $BL_LANGUAGES[$I][0]
			$GET_TEXT = ""
			Return
		EndIf
	Next
EndFunc   ;==>_Combo_TO

Func _MenuExit()
	Exit
EndFunc   ;==>_MenuExit

[Swisyn]

blue-life hocam bu konuda sormak istediğim bir husus var yerimi bilmiyorum ama.

Please register to see this content.

sitesindeki link ekleme kısmına programımdan linkleri gönderiyorum fakat sitedeki Captcha gösterme radio butonunu checkleyemiyorum ve Save Links butonu bir resim olduğundan dolayı clickletemiyorum acaba bununla alakalı ne yapılabilir.

Saygılar.

[blue_life]

@Swisyn

Elindeki kodlarını eklersen (istersen özeldende gönderebilirsin) bir göz atarım...

[Aqil990]

usta verdigin program guzelde zaten bizim dil yok, kodlardada unicode yok , neyse ya biz yapamiyacagiz galiba shunu . yinede tewekkur ediyorum ilgine gore.