Тут людям не рассказывают как ссылки из приложения вытащить, а вы о том где ВП есть.... !!! Вы что обалдели..... ))) Пусть обзоры на ютубе смотрит, а то скоро как срать ходить забудет...
Sub ExportTracks()
Dim TrackNum As String
Dim Services As String
Dim TrackServ As String
Open "Путь к файлу *.tctracks" For Output As #1
Print #1, "<?xml version='1.0' encoding='UTF-8' standalone='yes' ?> <trackchecker.export version=" & Chr(34) & "0" & Chr(34) & " platform=" & Chr(34) & "android" & Chr(34) & ">"
Close #1
For Each CurRange In Selection.Rows
On Error Resume Next
If CurRange.Hidden = False Then
TrackServ = Right(ActiveSheet.Cells(CurRange.Row, 5).Value, 2)
If TrackServ = "SG" Then
Services = " <servs> <serv serv=" & Chr(34) & "sg_post" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
If TrackServ = "SE" Then
Services = " <servs> <serv serv=" & Chr(34) & "se_dl" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
If TrackServ = "NL" Then
Services = " <servs> <serv serv=" & Chr(34) & "nl_post2" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
If TrackServ = "CN" Then
Services = " <servs> <serv serv=" & Chr(34) & "china_alt" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
If TrackServ = "PI" Then
Services = " <servs> <serv serv=" & Chr(34) & "ukr_np_int" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
If TrackServ = "BE" Then
Services = " <servs> <serv serv=" & Chr(34) & "be_etr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "be_esh" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
Else
Services = " <servs> <serv serv=" & Chr(34) & "ukr" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> <serv serv=" & Chr(34) & "cn_cno" & Chr(34) & " selected=" & Chr(34) & "1" & Chr(34) & " /> </servs> </track>"
End If
End If
End If
End If
End If
End If
TrackNum = "<track comm=" & Chr(34) & ActiveSheet.Cells(CurRange.Row, 18).Value & " " & ActiveSheet.Cells(CurRange.Row, 19).Value & Chr(34) & " track=" & Chr(34) & ActiveSheet.Cells(CurRange.Row, 5).Value & Chr(34) & " desc=" & Chr(34) & ActiveSheet.Cells(CurRange.Row, 2).Value & Chr(34) & ">" _
& Services
Open "Путь к файлу *.tctracks" For Append As #1
Print #1, TrackNum
Close #1
End If
'Debug.Print CurRange.Hidden
Next
Open "Путь к файлу *.tctracks" For Append As #1
Print #1, "</trackchecker.export>"
Close #1
End Sub
А Nox подойдёт для этой цели?вместо второго протестантства юзайте КОП, и деньгу сбережете и глазки не вытекут от маленького дисплея.
А почему страдаешь)? Я вот на 4а особо тормозов при этом деле не замечаю на нем...Тарю на xiaomi 4A ,,.,страдаю,но тарю)))
Оно и на 4а создается не долго (секунд 30, наверное, если не быстрее), мне кажется большого плюса от лишнего гига оперативный не будет для наших целей ИМХО.Если ничего кроме набора абузера стоять не будет, то, думаю, и 2/16 хватит. Но чем сильнее железо, тем быстрее ВП будет создаваться/удаляться.
))Не знаю.Зайдите на этот форум два раз подряд на разные акки с одного девайса и айпи на верку кинет??? )))
Вот к примеру https://www.123promocode.com/aliexpress.com?coupon=299605для алиэкспресса такого никогда не слышал. Люди поприкалывались наверное.
Твой КОП сегодня работает а завтра его прикроют,так что лучше иметь запасные лазейки.вместо второго протестантства юзайте КОП, и деньгу сбережете и глазки не вытекут от маленького дисплея.
Лучше с гуглплея ничего не качать и в гуглоакк во ВП не входитьНа "Xiaomi Redmi 4x" во второе пространство, кроме собственно приложения алиэкспресс, для получения носорогов 4/5 - еще какие то приложения требуются?
И саму приложуху алика с гугель стора качать или всякие версии с 4pda?
Мерси.
То есть во втором пространстве кроме приложения AliExpress_v6.21.2_246.apk, ничего устанавливать для получения купонов не требуется?Лучше с гуглплея ничего не качать и в гуглоакк во ВП не входить
На 4 пда полно любых АПК, я 6.21.2 версию с карты ставлю, там купон не надо получать, в момент реги алик сам засовывает в купоны, всё на одну движуху меньше)
Ещё моб приложение скидки ру оттуда же ставлю.
Но это смотря каким кэш-сервисом кто пользуется.
Нет!!!! можешь только клонировать кешбек сервис каким пользуешься или все нужные приложения на карту скачать и с неё поставить во второе пространство .То есть во втором пространстве кроме приложения AliExpress_v6.21.2_246.apk, ничего устанавливать для получения купонов не требуется?
Мерси.Нет!!!! можешь только клонировать кешбек сервис каким пользуешься или все нужные приложения на карту скачать и с неё поставить во второе пространство .
Примерно так ,ставишь второе пространство ,пароль я не задавал на него ,Апк Али ставил разные от 6 .11 до последнего. ,ставил с компа их сразу во второе .Запретов никаких не делал .После получения и отоваривания удалял полностью ,но можно наверно и чистить .Подскажут кто пользуется сейчас .Сам ушёл на NOX там мне удобнее и быстрееИ каждый раз для получения нового купона на новый акк