🕴🏾 👂 💒 हम VKontakte समूहों (पर्ल) में एक तस्वीर के साथ समाचार पोस्ट करते हैं 😺 🎪 🤸🏼

सूचना संसाधन बनाते समय, किसी को अक्सर दिनचर्या के काम के स्वचालन के बारे में सोचना पड़ता है। इस लेख में, हम सोशल नेटवर्क (Vkontakte) में अपने पृष्ठ या समूह पर डालने के लिए, पर्ल की कुछ पंक्तियों, जैसे समाचार, विशेष ऑफ़र, या अन्य उपयोगी जानकारी का उपयोग करते हुए एक सरल तरीके से विचार करेंगे। एक ही समय में एक तस्वीर, पाठ और लिंक के साथ।

लघु योजना:
1. एक VKontakte एप्लिकेशन बनाएं।
2. आवेदन के लिए टोकन उत्पन्न करें
3. हमें चित्र अपलोड करने के लिए सर्वर URL मिलता है।
4. चित्र को पहले प्राप्त सर्वर पर अपलोड करें।
5. सर्वर पर चित्र सहेजें।
6. हम पृष्ठ पर एक तस्वीर के साथ समाचार पोस्ट करते हैं।

1. VKontakte वेबसाइट पर एक एप्लिकेशन बनाएं।
साइट के नीचे डेवलपर्स के लिए एक लिंक है, और एप्लिकेशन बनाएं बटन।
एक नाम और स्टैंडअलोन एप्लिकेशन चुनें।
एप्लिकेशन संपादन सेटिंग टैब पर बनाने के बाद, आपको अपने आवेदन की आईडी दिखाई देगी। (याद रखें)।

2. हम टोकन प्राप्त करते हैं (कुंजी जिसके साथ बनाई गई स्क्रिप्ट साइट पर अधिकृत होगी)। ऐसा करने के लिए, ब्राउज़र में पेज खोलें:

https://oauth.vk.com/authorize?client_id={ID}&scope=wall,photos,audio,video,docs,notes,groups,messages,notifications,stats,ads,notify,friends,offline&redirect_uri=http://oauth.vk.com/blank.html&display=page&response_type=token

जहाँ
{आईडी} - बनाए गए आवेदन की आईडी, उदाहरण के लिए 1234563,
गुंजाइश आपके आवेदन के लिए अधिकार है कि इसे अनुमति दी जाएगी।
(दीवार - दीवार पर पोस्ट, फ़ोटो - फोटो अपलोड करें, समूह - समूहों तक पहुंच, संदेश - संदेश भेजें, मित्र - मित्रों और ऑफ़लाइन तक पहुंचें - ताकि टोकन कभी समाप्त न हो और स्क्रिप्ट हमेशा साइट तक पहुंच सके)।
response_type = token - टोकन प्राप्त करें।

इसके बाद स्क्रिप्ट पर जाएं:

इनपुट पैरामीटर:

 #!/usr/bin/env perl use strict; use LWP; use HTTP::Request::Common; my $token = '55e43443343435355a3e70e805722345552227'; #      my $gid = '65596688'; #  ID      . my $file = '/home/ds/test/2.jpg'; #     my $site_url = 'http://example.com'; #    ,        my $message = '  '; #     .

3. अब हमें VKontakte सर्वर प्राप्त करने की आवश्यकता है, जहां हम चित्र अपलोड करेंगे:

 #      getWallUploadServer my $url1 = "https://api.vkontakte.ru/method/photos.getWallUploadServer?gid=$gid&access_token=$token"; my $res_url = &get_data($url1); $res_url =~ s/([\\'])?//g; #   . $res_url = $1 if ($res_url =~ m/.*?upload_url\"\:\"(.*?)\".*?/); #  URL. my ($url , $param) = split(/\?/, $res_url); #  url       my %url_param = map {split("=")} split("&", $param);

4. चित्र को निर्दिष्ट url में डाउनलोड करें:

  my $ua = LWP::UserAgent->new (agent=>'Mozilla/5.0', requests_redirectable=>0); my $res = $ua->request ( POST "$url", Content_Type => 'multipart/form-data', Content => [ 'act' => $url_param{'act'}, 'mid' => $url_param{'mid'}, 'aid' => $url_param{'aid'}, 'gid' => $url_param{'gid'}, 'hash' => $url_param{'hash'}, 'rhash' => $url_param{'rhash'}, 'swfupload' => $url_param{'swfupload'}, 'api' => $url_param{'api'}, 'wallphoto' => $url_param{'wallphoto'}, 'photo' => [$file], ], ) die("$!"); my $res_upload = $res->as_string(); $res_upload =~ s/([\\'])?//g; #  . #      my $server_upload = $1 if ( $res_upload =~ m/server\"\:(.*?),\".*/); my $photo_upload = $1 if ( $res_upload =~ m/\"photo\"\:\"(.*?)\",\"hash.*/); my $hash_upload = $1 if ( $res_upload =~ m/\"hash\"\:\"(.*?)\"}$/);

5. जिसके बाद हमें सर्वर पर डाउनलोड की गई छवि को रिकॉर्ड करना होगा:

  my $url2 = "https://api.vkontakte.ru/method/photos.saveWallPhoto?gid=$gid&access_token=$token&server=$server_upload&photo=$photo_upload&hash=$hash_upload"; my $res_save = get_data($url2); my $ph_id = $1 if ( $res_save =~ m/\"id\"\:\"(.*?)\",\".*/); #

6. और आखिरी पोस्ट इसे दीवार पर करें:

  my $url3 = "https://api.vkontakte.ru/method/"."wall.post?owner_id=-$gid&attachments=$ph_id,$site_url&from_group=1&access_token=$token"; #  url  . $url3 .="&message=$message" if ($message); #   ,   . my $res_post = get_data($url3);

, जहां owner_id को "-" चिह्न (माइनस) के साथ होना चाहिए, क्योंकि यह एक समूह है।
from_group = 1 - समूह की ओर से समाचार पोस्ट करें।

अंत में, एक छोटा get_data () प्रक्रिया जो http डेटा को संचारित करने के लिए एक्सेस की गई थी।

  my $url = shift; my $ua = LWP::UserAgent->new (agent=>'Mozilla/5.0', requests_redirectable=>0); my $get_url = $ua->request (GET "$url") die("$!"); my $res_url = $get_url->as_string(); return ($res_url);

स्वचालन के लिए कुछ vkontakte लिंक:

संदेश भेजना:

 https://api.vkontakte.ru/method/messages.send?uid={UID}&message={MSG}&title={TITLE}&access_token={TOKEN}

जहां यूआईडी उस उपयोगकर्ता की आईडी है जिसे संदेश भेजा गया है (यह एक डिजिटल मूल्य है, यदि मित्र का यूआरएल पत्र आईडी दिखाता है, तो आप उसके एल्बम पर जा सकते हैं और यूआरएल में नंबर होंगे), {MSG} - संदेश स्वयं, {TITLE} - संदेश शीर्षलेख, और आपका टोकन।

अपनी स्थिति बदलें। यहां आईडी की जरूरत नहीं है, क्योंकि आवेदन आपके खाते से जुड़ा हुआ है।

 https://api.vkontakte.ru/method/status.set?text={TEXT}&access_token={TOKEN}

एक समूह में एक साधारण दीवार पोस्ट करना।

 https://api.vkontakte.ru/method/wall.post?owner_id=-{GID}&message={MSG}&from_group=1&access_token={TOKEN}

, जहां {GID} एक ऋण चिह्न के साथ समूह की डिजिटल आईडी है, {MSG} संदेश है, from_group वह संदेश है जिससे (1 - समूह से (यदि आप एक व्यवस्थापक हैं))।

वह सब है। बेशक, आपको अभी भी त्रुटि जांचने और कोड से बाहर निकलने आदि की आवश्यकता है लेकिन यह आप पर निर्भर है।

हम VKontakte समूहों (पर्ल) में एक तस्वीर के साथ समाचार पोस्ट करते हैं