استفاده از (WebView) وب ویو برای نمایش تصاویر بزرگ
کتابخانه XUI و JavaObject را فعال کنید
'xui is a global XUI object.
Private Sub ShowImage(WV As WebView, Dir As String, FileName As String)
#if B4A
Dim jo As JavaObject = Me
jo.InitializeContext 'comment this line if calling this...
تکه کد مسدود سازی کاربر
یکی از کاربردی ترین تکه کد ها برای مسدود سازی کاربر از گروه یا ربات می باشد که دستور آن به شکل زیر تعریف می شود.
$bans = json_decode(file_get_contents('bans.json'),true);
$sudo = ایدی;
if (preg_match('/(مسدود)(.*)/', $text) and $from_id == $sudo) {
$text =...
تکه کد حذف پیام با ریپلی (ربات تلگرام)
با ریپلی و ارسال del/ پیام مورد نظر حذف خواهد شد
$msgid = $message->message_id;
$reply = $message->reply_to_message;
$reply_id = $reply->message_id;
================
if($reply and $text == "/del"){
bot('deleteMessage',[
'chat_id'=>$chat_id...
تبدیل زمان(میلی ثانیه) به ساعت:دقیقه:ثانیه
• تابع:
```Sub ConvertMillisecondsToString(t As Long) As String
Dim hours, minutes, seconds As Int
hours = t / DateTime.TicksPerHour
minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
seconds = (t Mod DateTime.TicksPerMinute)...